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INFORMATICA BASICA 

EVALUACION DE ORDENADORES 




Evaluación 
del Hardware 

NTES de hablar de es- 
pecificaciones técni- 
cas vamos a aclarar 
una serie de concep- 
tos básicos a los aue 
haremos referencia 
más adelante. 

Hardware 

Se entiende por hardware el conjunto 
de componentes físicos que constituyen 
el ordenador. En anteriores capítulos he- 
mos hecho una definición de ellos; sin 
embargo, vamos a recordarlos: 






Hardware 






Clreulterío 
física 




Software 




Btt. operativo 
lenguajes... 





Soporta técnico 



Documentación 
manTemmienTO 



A No sólo hay que sopesar en el análisis de 
— i un ordenador su estructura física; las posi- 
bilidades de programación y documentación 
también son decisivas. 



El procesador. Es el elemento base de 
la parte física del ordenador. Su función 
es la de procesar los datos, para lo cual 
debe estar conectado, por un lado, a los 
periféricos de entrada/salida, y por otro, 
a la memoria de masa, los cuales se en- 



cargan de proporcionar al procesador la 
Información a tratar. 

La memoria principal. Su función es al- 
macenar la información que produce el 
procesador al ir desarrollando las Instruc- 
ciones de su programa. Esta información 
se podrá ir almacenando en zonas de al- 
macenamiento permanente (memoria 
de masa) o bien ser borrada, al ejecutar- 
se un nuevo programa. 

Memorias de masa. Sirven fundamen- 
talmente para almacenar: 

— Ficheros de usuario. 

— Los programas de aplicaciones del 
usuario. 

El almacenamiento se puede realizar 
en cualquier soporte (cinta, disco, dis- 
quete, cásete), pero se usa el disco pre- 
ferentemente porque es más rápido que 
los anteriores. 

A continuación se Incluye un cuestio- 
nario de datos técnicos y económicos 
cuya recomendación se hace a los usua- 
rios a la hora de requerir información téc- 
nica de los constructores. 

1 . Para la unidad central de proceso 

— Longitud de la palabra y de la Ins- 
trucción. 

— Características del repertorio de 
instrucciones. 

— Descripción del sistema de protec- 
ción de memoria. 

— Descripción del sistema de direc- 
cionamiento. 

— Descripción del sistema de interrup- 
ciones. 

2. Para la memoria principal 

— Capacidad propuesta. 

— Capacidad máxima. 

— Tipo de construcción. 

— Corrección de errores. 



3. Unidades de discos 

— Capacidad por "dispack" en bytes. 

— Velocidad de transferencia. 

— Tiempo medio de acceso. 

— Expresión de si puede servir como 
soporte del sistema operativo. 
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Tanto la capacidad de almacenamiento 
en "dls-pack" como las características de 
los dlsquetes utilizados son puntos Importantes a 
tener en cuenta a la hora de elegir un sistema. 



4. Pantallas 

— Tamaño de la pantalla. 

— Capacidad de la pantalla. 

— Número de caracteres. 

— Distintas intensidades de ilumina- 
ción de pantalla. 



Evaluación del software 



Software 

El software lo constituyen los elementos 
lógicos, frente al hadware, que lo forman 
los dispositivos físicos que conforman el 
ordenador. A la hora de comprar un or- 
denador, una elección adecuada del 
software es esencial para el buen apro- 
vechamiento del equipo. La decisión 
vendrá influenciada, por un lado, por el 
software de base, y por otro, por el soft- 
ware de aplicaciones disponibles para 
el sistema. 

Sistema operativo. Es el soporte básico 
que permite extraer las posibilidades del 
hardware y hacerlas asequibles al pro- 
gramador. El sistema operativo lo consti- 
tuyen un conjunto de reglas establecidas 
en un ordenador para su correcta utiliza- 
ción. El sistema operativo debe asegurar 
la carga, supervisión y ejecución de los 
programas, el control de las operaciones 
de entrada/salida, la asignación de me- 
moria, detección y corrección de erro- 
res, etc. Los sistemas operativos pueden 



trabajar en "batch" —ejecución de una 
o más tareas secuenclalmente con ali- 
mentación previa de todos los datos—, 
en modo "interactivo" —que permite la 
entrada de datos durante la ejecución 
del proceso— en "tiempo real" —me- 
diante el cual el sistema responde a las 
demandas externas según un concepto 
de prioridades— o en "tiempo comparti- 
do" —muchos usuarios pueden acceder 
al sistema simultáneamente y compartir 
todos sus recursos (memoria, ficheros, 
dispositivos...). 

Lenguajes de programación. Son las 

herramientas que permiten elaborar los 
programas ejecutables por el procesa- 
dor. Estos programas pueden formar par- 
te de las aplicaciones de los usuarios o 
bien del sistema operativo. 

Si se trata de lenguajes orientados al 
sistema operativo, éstos serán de bajo ni- 
vel y suponen una rápida y fácil ejecu- 
ción. Si se trata de lenguajes orientados 
al usuario, conocidos como lenguajes de 
alto nivel, suponen un potente desarrollo 
y una mayor facilidad de utilización para 
el programador. 

El ensamblador es un lenguaje orienta- 
do a la máquina y es Importante para la 
preparación de otros programas. Se escri- 
be en un formato simplificado y utiliza có- 
digos nemotécnicos y direcciones de 
operandos simbólicas, produciendo un 
programa listo para su ejecución, una 
vez que las direcciones simbólicas hayan 
sido convertidas en otras de máquina, 
que son las únicas que el ordenador en- 
tiende. 

En cuanto a los lenguajes orientados al 
usuario, deben incluir su correspondien- 
te compilador, que es quien se encarga 
de traducir cada instrucción a lenguaje 
máquina. La adopción de uno o más len- 
guajes lleva consigo no sólo aumento de 
coste de ellos, sino también de los com- 
piladores para cada uno. Los lenguajes 
simbólicos más conocidos son: destina- 
dos a gestión, como el RPG o el COBOL; 
otros de carácter científico, como el FOR- 
TRAN y el ALGOL, y otros de carácter ge- 
neral, como el BASIC. 

Por último, es muy Importante considerar 
también los programas de aplicación 
ofrecidos por el suministrador, tales 
como los "sorts" y los de mantenimiento 
de ficheros, y las aplicaciones estándar 
como: bases de datos, tratamiento de 



textos, hojas electrónicas, aplicaciones 
gráficas, etc. 



■ 



Cuestionario de software 



1 . Sistemas operativos 

— Tipo de sistema operativo. 

— Descripción de gestores: de entra- 
das/salidas, de archivos, de sistemas de 
memoria virtual, de multlprogramación. 

2. Lenguajes 

— Lenguajes admisibles por la máquina. 

— Versión de los lenguajes ofertados. 

— Especificaciones a las que responde. 




rri.fl.r- 

MHIí-flXMAf 



11 A I La elección del lenguaje apropiado faclll- 
l L tí taró la resolución de los problemas. 



3. Rutinas de utilidad y lenguajes 
de aplicación 

— Tipo de rutinas de utilidad y funcio- 
nes que cumple. 

— Tipos de aplicaciones que se ofer- 
tan con el sistema. 

— Cantidad de memoria necesaria. 




Otros aspectos a considerar 

1 . Fecha de aparición en el mercado 

Indica la antigüedad del equipo, y 
como consecuencia, la vida que poten- 



cialmente le resta. Conviene fijarse que 
la antigüedad del sistema no sea supe- 
rior a cuatro años. El usuario que adquie- 
ra un ordenador debe contar con que le 
deberá ser útil durante unos diez años, 
para lo cual deberá considerar deteni- 
damente el tiempo de permanencia en 
el mercado. 

2. Asistencia técnica de sistemas 

Aunque el compromiso en los minis y 
micros no es tanto como el que se pue- 
de alcanzar en los grandes sistemas, su 
necesidad es Importante Igualmente. Los 
constructores están obligados a prestar 
un soporte de sistemas para implantar el 
software estándar. El usuario no debe 
abonar nada por el servicio, el cual no 
debe ser deducido del total de ayuda 
técnica que el constructor se comprome- 
ta a facilitar gratuitamente. 




Compromiso de mantenimiento: no todos 
los constructores lo asumen por Igual. 



3. Documentación 

El usuario debe contar siempre con una 
completa biblioteca de documentación 
referente al ordenador y al sistema ope- 
rativo que utilice. Antes de firmar ningún 
contrato, el usuario debe conocer el cos- 
te de la documentación necesaria para 
la completa utilización de los recursos de 
su sistema. 
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Descripción 
de las 

instrucciones 



NA vez vista la estruc- 
tura general de la 
CPU y sus modos de 
dlrecclonamlento en- 
tremos ahora en el 
estudio detallado de 
las instrucciones dis- 
ponibles por el Z-80. 

En el capítulo trataremos las Instruccio- 
nes que versan sobre los movimientos de 
datos en memoria y registros. Es uno de 
los tipos de instrucciones más utilizados 
por los ordenadores, siendo el Z-80 uno 
de los microprocesadores más versátiles 
en el manejo de este tipo de instruccio- 
nes. 



Movimientos de 8 y 16 bits 



Estas Instrucciones permiten copiar un 
dato de 8 ó 16 bits desde una posición 
de memoria, o de un registro, a otra po- 
sición de memoria, u otro registro. 

Esta Instrucción puede utilizarse con los 
diferentes tipos de direcclonamiento ex- 
plicados en el apartado anterior. 

El formato de este tipo de Instrucciones 
es el siguiente: 





LO 1." OPERANDO | 


2.o OPERANDO | 







Flg. 1. 




LD (de LoaD en Inglés) significa cargar 
un dato. 

El primer operando indica el destino 
donde se ha de cargar el dato que Indi- 
ca el segundo operando. Por tanto, el pri- 
mer operando puede ser un registro o 
una dirección de memoria, ambos de 8 
o de 16 bits, y el segundo puede ser un 
número binarlo, ei contenido de un regis- 
tro o el contenido de una dirección de 
memoria (de 8 o de 16 bits). Como pue- 
de verse en la tabla adjunta, debe tener- 
se bien claro que cuando se utiliza un 
dato de 16 bits, éste ocupa dos posicio- 
nes de memoria (bytes), y al dar una soja 
dirección, nos referimos a esa posición 
de memoria y a la siguiente (el Z-80 lo en- 
tiende así). En el caso de registros de 16 
bits, nos referimos a la agrupación de dos 
registros de 8 bits, de la forma estándar, 
es decir, AF, BC, DE y HL, o de algún regis- 
tro de 16 bits, como el puntero del stock 
(SP). 

En el caso del Z-80 (al contrario de 
otros microprocesadores como el 6502), 
son prácticamente posibles todas las 
combinaciones. En la tabla adjunta pue- 
den verse todas ellas: 



Instrucciones de movimiento de bloques 



Código 
inncmolécnkn 


Operación simbólica 


Indicador» 
S l H P/V N C 


Códigos 
76 543 210 Hm 


N." de 
byies 


EX DE.HL 


DE**HL 


• • X • X • 


11 luí 011 PR 

■ 1 IVI Vil l—I) 


i 


EX AF.AF' 


AF**AF' 


* *X*X * • • 


(Vi /U\ i iWi AO 

uu uui (mu un 


1 


EXX 


BC**BC 


• • X • X • • • 


11 011 001 D9 


1 




DE «DE* 










HL-HL' 








EX ISPÍ Hl 


H **(SP-t 1) 


• • X • X • 


ti 1 /1A Al 1 r— f\ 

11 100 011 fc3 


1 




I "ÍSPt 








EX (SP).IX 


IXh-íSP* 11 


• • x • x • • • 


ii ni i un r\i\ 
11 Ul 1 IUI 1)1) 


2 


F.X (SP).IY 


IX, "(SP) 




1 1 10(1 01 1 Kl 

1 1 IvU VI 1 Eií 




IY„»(SP + I) 


• • X • X • • • 


M III 101 PD 


2 




IY L *-(SP) 


® 

• ■ A U A i U • 


1 1 líYl Ai i i i 
ii iuu ui i izi 




LDI 




i 1 mi n\i t:r\ 
1 1 IUI IUI hD 






DE-DE+I 




10 100 000 AO 






HI.-HL+l 










BC-DC- 1 








LDIR 




• • Y ñ V A l\ m 

w ■ A U A U U ■ 


ii mi mi Ln 

1 1 iui luí bu 


2 




DE*- DE + 1 




ID i in níwi un 
IU 1 1U uuu uu 






HL--HL+I 










BC-BC-1 










Repetir hasta que 










BC=0 


• «voy t n • 

A U A ¡ U • 






LDD 




II IUI IUI II) 


2 




DE-DE-I 




1(1 11)1 (W) Ají 

iu IUI UUU r\rS 






HL-HL-I 










BC" BC-1 








LDDR 


(DE)--(HL) 


• • X 0 X 0 0 • 


11 101 101 ED 


2 




DE— DE- 1 




ID til nnn un 
1U III ÜUU Uo 


2 




HL*-HL- 1 










BC*-BC— 1 










Rendir hasta ouc 










BC^O 


(i) (Ti 






CPI 




Vi* \¿s 
I I X I X I 1 • 


11 IUI IUI bü 


2 




HL-HL+1 




10 100 001 Al 






BC-BC-1 








CP1R 




® © 






A-(HL) 


I I X I X I 1 • 


ii mi i ni cr\ 
II IUI luí tu 


2 




HL-HL+1 




10 110 001 Bl 


2 




BC-BC-1 










Rcpclir hasta que 










A=(HL) 0 BC=0 












® ® 






CPD 


A-(HL) 


t I X I X t 1 • 


11 101 101 ED 






HI.-HL-I 




10 101 001 A9 






BC-BC-1 








CPDR 


A-(HL) 


® ® 

t : x j x t i • 


II 101 101 ED 






HL-HL-I 




10 111 001 B9 






BC-BC-1 










Rcpclir hasta que 




















N.° de 
rielo» !• 



N. u de 




estados T 


Comentarlos 


4 




4 




4 


Intercambio del 




grupo de regis- 




tros con el gru- 




po alternativo 


19 




23 




23 






Caiga (HL) en 




(DE), incremen- 




to Hl. y DE y 




disminuye el 




contador BC 


21 


Si BC*0 


16 


Si BC=0 


16 




21 


Si BC*0 


16 


Si BC=0 


16 




21 


Si BC*0 




y A*(HL) 


16 


Si BC-Oo 




A = (HL) 


16 




21 


Si BC*0 y 




A*(HL) 


16 


Si BC-0 o 




A»(HL) 



NOTAS: G P/V a 0 si el resultado de BC-1 es 0: P/V a I en caso contrario. © P/V a 0 si se ha comple- 
tado el recorrido; P/V a 1 en caso contrario. © Z a 1 si A = (HL); 2 a 0 en caso contrario. 



Flg. 2. 



En este tipo de tablas, la primera co- 
lumna Indica la forma de escribir la ins- 
trucción en lenguaje ensamblador. En la 
segunda se explica simbólicamente su 
forma de operar. La tercera indica los 
cambios que se producirán en el registro 
de flags al ejecutar la Instrucción. La si- 
guiente Indica la traducción a hexadecl- 
mal de las mismas. Y las demás indican 
otros parámetros de Interés. 

Como es de suponer, los paréntesis in- 
dican dlrecclonamiento indirecto, y 
cuando a un dato se le suma IX o IY, in- 



dica Indexación, como ya se explicó an- 
teriormente. 
Veamos esto con unos ejemplos: 

1. LD(BC),A 

Carga en la posición de memoria cuya 
dirección está en la dirección BC (2 
Bytes = 16 bits = 1 dirección), el conteni- 
do del acumulador. 

2. LD(IY+d),n 

Carga en la dirección de memoria que 
se encuentra en otra posición resultante 




de la suma del contenido del registro ín- 
dice IY, con una dirección numérica (re- 
presentada por d), el valor n, por ejem- 
plo: 

LD (IY+$3FAB),3C 

Carga en la dirección (IY+$3FAB) el nú- 
mero de 8 bits 3C. Es decir, en el byte 
IY+$3FAB y en el siguiente se encuentra 
la dirección donde cargar el dato. 

3. Ahora con 16 bits: 

LD (nn).(dd) como LD($3A18),($n31F) 

La instrucción carga en la posición de 
memoria cuya dirección se encuentra en 
las direcciones nn y nn+ 1, el dato cuya 
dirección se encuentra en la direc- 
ción dd. 



\\M) Intercambios entre registros 

El Z-80 dispone de algunas Instruccio- 
nes aue permiten Intercambiar los conte- 



nidos de algunos registros. Intercambiar 
no es lo mismo aue cargar, ya aue al car- 
gar los dos registros implicados acaban 
con el mismo dato, mientras aue en los 
intercambios sólo se les cambia de sitio. 



Las instrucciones son las siguientes: 

— EX DE.HL: Intercambia el contenido 
de los registros DE y HL. 



— EX AF.AF': Cambia el registro AF con 
el eauivalente del juego de registros 
complementarlos. 

— EXX: Esta instrucción cambia el res- 
to de los registros con los del juego com- 
plementario. 

Existen, además, otras Instrucciones 
para intercambiar con el contenido de la 
pila del sistema, o stack, pero éstas se 
verán más adelante. 



Instrucciones de movimiento de 8 bits 



Código 
mncmotecnico 



LD r.r' 
LD r.n 



LD r,(HL) 
LD r,(IX + d) 



LD r.(IY<-d) 



LD (HL),r 
LD <lX*d).r 



LD (lY*d),r 

LD (Hl.).n 
LD <IX+d),n 

LD (IY*d).n 



LD A.(l)C) 
LD A, (DE) 
LD A,(nn) 



LD (BC),A 
LD (DE). A 
LD (nn),A 



LD A.l 
LD A,R 
LD I.A 
LD R,A 



Operación simbólica 



r-(HL) 
r-(lX*d) 



f (IY + d) 



("L|-r 
(IX+dKr 



(lY.d)--r 

(lX*d)-o 
(IY+d)- n 



A-(BC) 
A -(DE) 
A-(im) 



<BC>- A 
(DE)- A 
(nn)'-A 



A-I 
A-R 
1-A 
R-A 



Indicador» 
S Z H P/V N C 



• • X • X 

• • X • X 



• • X • X 



• • X • X 

• • X • X 



• • X 

• • X 



• • X • X 



X • X 
X • X 
X • X 



Códigos 
76 543 210 Hex 



t 1 X 0 X IFF 0 • 
! I X 0 X IFF 0 • 
• • X • X • • • 



r" 

110 



-n- 



• • x • : 



01 r 110 
II 011 101 DD 
01 r 101 

-d- 
II III 101 ID 
01 r 110 

-d- 
01 110 t 
II 011 101 DD 
01 110 r 

-d- 
II III 101 FD 
01 110 I 

-d- 
00 1 10 1 10 36 

II 011 101 DD 
00 110 110 36 
-d- 

*"«"* 
II III 101 FD 
00 110 110 36 

-d- 

•-n- 
00 001 010 0A 
00 011 010 1A 
00 III 010 3A 



00 000 010 02 
00 010 010 12 
00 110 010 32 



II 101 101 ED 

01 010 III 57 

II 101 101 ED 

01 011 111 5F 

II 101 101 ED 

01 000 III -17 

II 101 101 ED 

01 001 III 4F 



N.° de 
byte 



N." de 
ciclos M 



N.° de 
estados T 



7 
I» 



10 
19 



Rcg. 



000 8 

001 C 

010 D 

011 E 

100 H 

101 L 
111 A 



fíg. 3. 



NOTAS: t,r' representan cualquiera de los regslros A. B, C, D, E. H, L. IFF significa que el contenido (IFF) 
de la báscula de habilitación de interrupciones se carga en P/V. Para los diferentes símbolos que 
se emplean véase la tabla que figura al final del apéndice. 



Instrucciones de movimiento de 16 bits 



Código 








Indica dores 


CódlROi 




N.° de 


N." de 


N.° de 


mncmolccnico 


Operación simbólica 


s 


Z 


|| 


p/V n c 


76 543 210 




byies 


ciclos M 


estados T 


ID dd.nn 


dd*-nn 


• 


• 


X • X 


• • • 


00 ddO 001 




3 


3 


10 




































*-n-» 










1 1) IX nn 

L.U I...IL. 


1 y — mi 


■ 


* 


X • X 


■ ■ • 


11 Alt 1 rtl 

11 Olí 101 


DD 


4 


4 


14 














00 100 001 


21 




















.- n - 






















*-n-* 










LD lY.nn 


lY—nn 


* 


• 


X • X 


■ • • 


II 111 101 


FD 


4 


4 


14 














00 100 001 


21 




















•-n-* 
































LD HL,(nn) 


H-(nn+l) 


• 


• 


X • X 


■ ■ ■ 


00 101 010 


2A 




5 


16 




L-(nn) 










*-n-* 
































LU lia.inti) 


ildii^lnn-M) 


■ 


• 


X • X 


• • • 


II 101 101 


ED 


4 


6 


20 




ddf-(nn) 










01 ddl 011 






















**n-« 






















*-n-» 










1,1) IX.(nn) 


IXh' (nn t 1) 


• 


• 


X • X 


• • « 


II OH 101 


DD 


4 


6 


20 




IXL*-(nri) 










00 101 010 


2A 




















•-n-» 






















*~n— 










LD IY,(nn) 


1 V.. ■ fnn i 1 > 




* 


X • X 


• • • 


11 111 101 


FD 


4 


6 


20 




IYi- (mi) 










00 101 010 

—n-' 


2A 








LD (nn).HL 


(nn-l)*-H 


• 


« 


X • X 


• • ■ 


—n— 
00 100 010 


22 


3 


5 


16 




(nn)-L 










•-n-* 






















*-n-* 










LD (nn).(dd> 


(nn i l)*-ddn 


• 


• 


X • X 


• • • 


11 101 101 


ED 


4 


6 


20 




(nn)*-ddi 










01 ddO 011 






















—n- 






















—n- 










LD (nn).IX 


(nn4l(-IX K 




• 


X • X 


• • • 


11 011 101 


DD 


4 


6 


20 




(nn)-IX L 










00 100 010 


22 




















•-n** 






















*-a~* 










LD (nn).IY 


(nn+l)4-IY H 


• 


• 


X • X 


• • ■ 


II 111 101 


FD 


4 


6 


20 




(nn)-IY L 










00 100 010 


22 








LD SP.HL 


SP-HL 




• 


X • X 




11 111 001 


F9 


1 


1 


6 


LD SP.1X 


SP-IX 






X • X 




II 011 101 


DD 


2 


2 


10 














11 111 001 


F9 








LD SP.1Y 


SP-1Y 


• 




X • X 




11 111 101 


FD 


2 


2 


10 



Comentarios 



<ld Pai 



00 BC 

01 DE 

10 III 

11 SP 



NOTAS: dd es cualquiera de los pares de registros BC. DE, HL, SP. qq es cualquiera de los pares de 
registros AF. BC, DE. HL. (par)„ y (par), se refieren al byte alto y al byte bajo del par; por ejemplo, 

BC. — C, AF^ = A. 




Transferencia de bloques 

Este conjunto de Instrucciones permite 
mover bloques de memoria. Su utilidad 
es muy grande para Implementar Instruc- 
ciones tales como el tratamiento de tiras 
de caracteres (STRINGS). 

— LDI: Mueve el contenido de la posi- 
ción Indicada por DE a la dirección Indi- 
cada por HL. Después incrementa en uno 
los contenidos de DE y HL, con lo que pre- 
para para la ejecución de la siguiente 
Instrucción. Además, decrementa BC en 
una unidad. 

— LDD: Es Idéntica a la anterior, pero 
con la diferencia de que decrementa en 
una unidad los contenidos de DE y HL. 

— LDIR: Esta instrucción ejecuta repeti- 
damente la Instrucción LDI hasta que el 
contenido de BC se hace 0. De esta for- 
ma puede moverse una gran cantidad 
de datos con una sola Instrucción. 

— LDDR: Esta es como la anterior, sólo 
que aquí la ejecución repetida es de la 



Instrucción LDD, también hasta que BC 
llega a 0. 



Búsqueda de bloques 

Este conjunto de instrucciones permite 
buscar un determinado carácter dentro 
de un bloque. El carácter a buscar debe 
estar previamente en el acumulador (A). 

— CPI: Compara el contenido del acu- 
mulador con el contenido de la direc- 
ción Indicada por HL. Después Incremen- 
ta HL en 1 y decrementa BC en uno. 

— CPD: Es Idéntica a la CPI, con la par- 
ticularidad de que decrementa en una 
unidad HL. 

— CPIR: Ejecuta repetidamente una 
instrucción CPI hasta que el contenido 
de HL es Idéntico al acumulador o BC lle- 
ga a cero. De esta forma puede buscar- 
se dentro de un bloque un determinado 
dato. 

— CPDR: Es igual que la anterior, pero 
con la ejecución repetida de la instruc- 
ción CPD. 



PROGRAMAS 



EDUCATIVOS • DE UTILIDAD • DE GESTION • DE JUEGOS 



Programa: 
Organo 
electrónico 

EL programa que apa- 
rece a continuación 
es un órgano electró- 
nico (computeriza- 
do) para el SPEC- 
TRUM. Poco hay que 
decir sobre el progra- 
ma aparte de que 
está escrito en código máquina y de que 
nos puede permitir el interpretar, me- 
diante el teclado de nuestro ordenador, 
todas las melodías que nosotros quera- 
mos. 

Sólo hay que llamar la atención sobre 
algunas líneas. El programa utiliza tres 
caracteres definidos. Las líneas en las 
cuales se encuentran dichos caracteres 
son la 60 y la 90. En estas líneas todos los 
caracteres que aparecen después de 
las comillas de la sentencia PRINT hay 
que escribirlos en modo GRAPHICS. El 
modo GRAPHICS se consigue pulsando a 
la vez las teclas CAPS SHIFT y el nueve (9). 
Una vez hecho esto, el cursor se nos apa- 
recerá como una G parpadeante. Cuan- 
do tengamos el cursor en modo GRAP- 
HICS, solo tenemos que pulsar la tecla 
que corresponda según el programa. 
Aunque el carácter que aparezca por 
pantalla nos resulte extraño, no tenemos 
que preocuparnos, ése es el carácter 
que tiene que salir. 

Una vez que el programa esté introdu- 
cido en la memoria y todas las líneas 
DATA estén correctamente escritas, tras 
hacer RUN, la pantalla del ordenador se 
oscurecerá.^ Cuando esto ocurra no tie- 
nes por qué preocuparte, el ordenador 
está cargando todo el código máquina 



en su memoria. Una vez que esté carga- 
do todo el código máquina, nos apare- 
cerá el teclado de un piano en la panta- 
lla. Este es el momento de empezar a uti- 
lizar el programa. 

*• -t-ORGRNO ELECTRON ICO +- 




ESPRCIO-yUELUE R EfiSIC 

Las teclas que puedes utilizar para to- 
car música son las siguientes: 

A -DO 

W - DO sostenido 
S - RE 

E - Re sostenido 

D-MI 

F-FA 

T - FA sostenido 
G-SOL 

Y - SOL sostenido 
H-LA 

U - LA sostenido 
J-SI 

K - DO (Una octava más arriba) 

Cuando te canses de tocar el órgano 
sólo tienes que pulsar la tecla SPACE 
para volver al BASIC. 



1 REM *********************** 

2 REM *(c)Ed. Siglo Cultural* 

3 REM *(o)1987 * 

4 REM *********************** 

5 REM 

10 BORDER 1: PAPER 1: INK 7: C 
LEAR 39999 

20 GO SÜB 9000: REM COLOCA LA 
SUBRUTINA EN CM 

30 GO SUB 8000: REM UDG 



50 FOR 1=8 TO 12 

60 PRINT AT I,4;"C 88 88 BC 88 
88 88 BC B" 

70 NEXT I 

80 FOR 1=13 TO 15 

90 PRINT AT I, 4; "C BC BC BC BC 
BC BC BC B" 
100 NEXT I 

110 PLOT 32,111: DRAW 191,0 

120 PLOT 32,48: DRAW 191,0 

130 PRINT AT 0,4;"++0RGAN0 ELEC 
TRONICO++" 

140 PRINT AT 14,5;"A";AT 14, 8;" 
S";AT 14,11;"D";AT 14,14;"F";AT 
14,17;"Q";AT 14,20;"H";AT 14,23; 
"J";AT 14,26;"K" 

150 PRINT IN VERSE 1;AT 11, 6; "W 
" ; AT 11,9;"E";AT 11, 15; "T";AT 11 
,18;"Y";AT 11,21; "U" 

160 PRINT AT 21,0;" ESPACIO- 
VUELVE A BASIC 

200 RANDOMIZE USR 40000 

210 PAUSE O 

220 STOP 
8000 REM UDGS 
8010 FOK 1=0 TO 7 
8020 POKE I+USR "A", 129 
8030 POKE I+USR "B",l 
8040 POKE I+USR "C",128 
8050 NEXT I 
8060 RETURN 

9000 REM CARGA LAS LINEAS DATA 

9005 LET control=0 

9010 FOR 1=40000 TO 40341 

9020 READ A: POKE I,A: LET CONTR 

OL=CONTROL+A 

9030 NEXT I 

9040 IF C0NTR0LO25879 THEN PRI 

NT "ERROR EN LOS DATAS: REVISE LA 
S LINEAS DESDE LA 9200 HASTA L 
A 9540": STOP 
9050 RETURN 

9200 DATA 243,62,13,50,24,157,62 
, 127,219,254 

9210 DATA 31,48,42,205,158, 156.5 
8, 24, 157, 254 

9220 DATA 13,40,16,185,40,24,205 
, 121„156, 121 

9230 DATA 254,13,32,10,50,24,157 
,24,223,121 

9240 DATA 254, 13,40,218,50,24, 15 
7,205, 121, 156 

9250 DATA 205,216,156,24,207,251 
,201,58,24, 157 

9260 DATA 87,130,130,95,22,0,33, 
25, 157,25 

9270 DATA 126,35,94,35,86,38,89, 
111, 126,238 

9280 DATA 15, 119,26,167,200,133, 
111, 126,238, 15 

9290 DATA 119,19,24,244,14,0,62, 
253,219,254 

9300 DATA 6,5,205,210,156,208,62 
, 191,219,254 

9310 DATA 31,31,6,3,205,210,156, 
208,62,251 

9320 DATA 219,254,31,6,2,205,210 
,156,208,31 



9330 DATA 31,208, 12,62,223,219,2 
54,31,31,31 

9340 DATA 6,2,205,210,156,201,31 
,208,12, 16 

9350 DATA 251,201,58,24, 157,33,2 
41, 156,6,0 

9360 DATA 79,9,9,9,94,35,86,35,1 
10,38 

9370 DATA 0,235,205, 181,3,243,20 
1, 108,6,5 

9380 DATA 179,5,5, 17,6,5,198,4,8 
,61 

9390 DATA 4,7,37,3,10,87,3,9,196 
.3 

9400 DATA 8,12,6,5,96,5,6,128,4, 
7 

9410 DATA 140,3,9,255,3,8,0,4,64 
, 157 

9420 DATA 8,93,157,11,107, 157, 13 
,64,157,17 

9430 DATA 93,157,25, 126, 157,23,1 
07, 157,20,93 

9440 DATA 157.6.83.157.9.83.157. 
15,83,157 

9450 DATA 21,83, 157,18,83, 157, 1, 
31, 1,31 

9460 DATA 1,31,1,31,1,31,1,1,30, 
1 

9470 DATA 1,30,1,1,0,1,31,1,31,1 
9480 DATA 31,1,31,1,0,32,32,32,3 
2,31 

9490 DATA 1,1,30,1,1,30,1,1,0,1 
9500 DATA 31,1,31,1,31,1,31,1,30 

.1 

9510 DATA 1,30,1,1,30,1,1,0,1,1 
9520 DATA 30, 1, 1, 30, 1, 1, 30, 1, 1, 3 

O 

9530 DATA 1,1,30,1,1,30,1,1,30,1 
9540 DATA 1,0 





Notas sobre el programa 
Organo electrónico 



El programa está hecho de tal forma 
aue cualauler persona con conocimien- 
tos de código máauina puede utilizar las 
rutinas que se encuentran dentro del mis- 
mo para sus propios programas. 




Programa: Agenda telefónica 



El siguiente programa es una agenda 
telefónica que nos permitirá tener alma- 
cenados en el disco de nuestro IBM o 
compatible toda la información que de- 
seemos sobre ciertas personas. 




MENU 



¡¡¿SMi PERSONA 

Jl pir* 

RMINAR 



¿QUE ELIGES? Cl-65? 




V 



A Menú de/ programa Gestor de teléfonos. 



El programa nos permitirá tener un listín 
telefónico electrónico. Los datos que 
este programa puede almacenar son los 
siguientes: 

— Nombre de la persona. 

— Apellidos de la persona. 

— Dirección en la cual vive. 

— Ciudad. 

— Código postal 

— País. 

— Teléfono. 

Este programa nos permite realizar las 
siguientes funciones con las fichas que 
vayamos introduciendo en memoria: 

— Introducir una persona nueva en el fi- 
chero. 




¿.QUE QUIERES, PANTALLA O IMPRESORA CP/ O 

opc iones 
/. mmmiíre y tele 

3 - NOMBRE, DIREC. V TELE 
¿QUE OPCION QUIERES? 




Menú de Impresión. 



— Buscar una persona. 

— Cambiar los datos de una persona. 

— Buscar todas las personas cuyo nom- 
bre empiece por una cierta letra. 

— Borrar una persona del fichero. 

— Listar todas las personas que hay al- 
macenadas. 

El programa también está capacitado 
para sacar por la impresora los datos de 
todo el listín telefónico que nosotros ha- 
yamos creado. Podemos sacar dicha Im- 
presión con caracteres normales o con 
letras comprimidas. Esta última opción 
está especialmente pensada para aque- 
llos que quieran llevar una lista de todas 
las personas conocidas en la cartera. 







\ 




CECILIA 
3334455 


LOPEZ BORREGO 






FELIPE 
3996012 


PUENTES MIL 






LUIS MIGUEL 
3450012 


ROSALES POZAS 






MARIA MERCEDES 

23399Í7 


ROSAS PI 






PEDRO 
3224354 


GARCIA MATA 








/ 



Ejemplo de Impresión. 




NOMBRE FELIPE 

APELL. PUENTES 

cW¿ ÍÜSriS' 

CODIGO 28©ei 



uSa' 



22 



TELE 



3996012 



¿QUIERES CAMBIAR ESTA FICHA CS/MJ? 




El programa nos permite modificar las fi- 
chas. 



- 



Este programa está escrito para cual- 
auier ordenador aue sea compatible 
con el IMB pe, xt y at. También puede fun- 



cionar en el MSX y MSX2 con disco si se 
realizan los siguientes cambios: 



s$ 


NOMBRE 


W$, E 


$ * 


A$ 


DIRECION 


Y$ 


* 


C$ 


CIUDAD 


U$ 


* 


Z$ 


ZONA 


1$ 


* 


P$ 


PAIS 


D$ 


* 


N$ 


TELEFONO 


0$ 


* 


L$ 


PUNTERO IZQUIERDA 


L, F, 


LS* 


R$ 


PUNTERO DERECHO 


R 


* 


B$ 


PUNTERO ARRIBA 


B 


* 



100 REM ************************************ 
110 REM * * 
120 REM * AGENDA TELEFONICA * 

130 REM * * 

140 REM * * 
150 REM * POR: PETER BERGMANN * 
160 REM * * 
170 REM ************************************ 
180 REM * * 
190 REM * VARIABLES * 

200 REM * * 

210 REM * * 

220 REM * REGISTRO TEMPORAL * 

230 REM * 

240 REM * 

250 REM * 

260 REM * 

270 REM * 

280 REM * 

290 REM * 

300 REM * 

310 REM * 

320 REM * * 
330 REM * OTRAS * 
340 REM * M OPCION DE MENU * 
350 REM * X$ FLAG PARA IZQ, DERC. * 
360 REM * TN NUMERO DEL PROXIMO REGISTRO* 
370 REM * TA NUMERO DE REGISTROS * 
380 REM * U$,V$ PARA MANIPULAR STRING * 
390 REM * Z,Q NUMERO DE REGISTRO * 
400 REM * M$ RESPUESTA (S/N) * 
410 REM * I CONTADOR * 
420 REM * J$,C RESPUESTA PARA CONTINUAR * 
430 REM * D FLAG * 
440 REM * H$ LETRA A BUSCAR * 
450 REM * J$ PARA MANIPULACION DE STRING* 
460 REM * P NUMERO DE PAGINA * 
470 REM * G$ FLAG (P/I) * 
480 REM * U OPCION DE PRINT * 
490 REM * N CONTADOR DE REGISTROS * 
500 REM * * 
510 REM ************************************ 
520 REM 

530 REM ************************** 
540 REM * (o) Ed. Siglo Cultural * 
550 REM * (c) 1987 * 
560 REM ************************** 
570 REM 
580 KEY OFF 
590 CLS 

600 PRINT "****************************************" 

610 FOR 1=1 TO 19 

620 PRINT TAB(40); "*" 

630 NEXT I 

640 PRINT "****************************************" 
650 LOCATE 8,12: PRINT "AGENDA TELEFONICA" 

660 LOCATE 9,11: PRINT " " 

670 LOCATE 12,7: PRINT "(c) Ed. Siglo Cultural, 1987" 
680 FOR I = 1 TO 1000 
690 NEXT I 
700 REM 



710 REM ************************************* 
720 REM * DEFINICION DE REGISTRO * 

730 REM ************************************* 
740 REM 

750 OPEN "TELE. F" AS «1 LEN = 148 

760 FIELD «1, 40 AS S$, 15 AS N$, 30 AS A$, 20 AS C$, 5 AS Z$, 30 AS P$, 2 AS L$ 
, 2 AS R$, 2 AS B$ 
770 REM* 

780 REM *** VER SI HAY REGISTROS *** 

790 REM 

800 CLS 

810 GET «1, 1 

820 IF NOT EOF(l) THEN GOTO 900 

830 LSET S$ = "M" 

840 LSET N$ = MKI$(1) 

850 LSET A$ = MKI$(1) 

860 LSET L$ = MKI$(0) 

870 LSET R$ = MKI$(0) 

880 LSET B$ = MKI$(0) 

890 PUT «1, 1 

900 REM 

910 REM *************************************** 
920 REM * MENU * 

930 REM *************************************** 
940 REM 
950 CLS 

960 LOCATE 3,18: PRINT "MENU" 

970 LOCATE 4,17: PRINT " " 

980 LOCATE 6,12: PRINT "1 - NUEVA PERSONA" 

990 LOCATE 7,12: PRINT "2 - BUSCAR/CAMBIAR PERSONA" 

1000 LOCATE 8,12: PRINT "3 - BUSCAR" 

1010 LOCATE 9,12: PRINT "4 - BORRAR PERSONA" 

1020 LOCATE 10,12: PRINT "5 - LISTAR TODAS" 

1030 LOCATE 11,12: PRINT "6 - TERMINAR" 

1040 LOCATE 14,1: PRINT " (QUE ELIGES? (1-6)"; 

1050 INPUT M 

1060 IF (M < 1) OR (M > 6) GOTO 940 

1070 ON M GOSUB 1170,2340,3060,3320,2760,1090 

1080 GOTO 950 

1090 REM 

1100 REM *** FIN DEL PROGRAMA *** 
1110 REM 
1120 CLOSE «1 
1130 CLS 

1140 PRINT "ADIOS. . . " 
1150 KEY ON 
1160 END 

1170 REM ************************************** 
1180 REM * INTRODUCIR PERSONA * 

1190 REM ************************************** 
1200 REM 
1210 CLS 

1220 PRINT "PARA SALIR INTRODUZCA 'X' EN EL NOMBRE " 
1230 PRINT 

1240 LINE INPUT "NOMBRE: ";W$ 

1250 IF W$ = "X" THEN RETURN 

1260 IF W$ = "" THEN GOTO 1210 

1270 LINE INPUT "APELLIDOS: ";E$ 

1280 GOSUB 1520 

1290 GOSUB 2230 

1300 IF X$ = "D" GOTO 1450 

1310 LINE INPUT "DIRECCION: ";Y$ 

1320 LINE INPUT "CIUDAD: ";U$ 

1330 LINE INPUT "CODIGO POSTAL: ";I$ 

1340 LINE INPUT "PAIS: ";D$ 

1350 LINE INPUT "NUMERO DE TELEFONO: ";0$ 

1360 GOSUB 2010 

1370 GOSUB 2090 

1380 GOSUB 1640 



1390 TN = TN + 1 

1400 TA = TA + 1 

1410 LSET N$ = MKI$(TN) 

1420 LSET A$ = MKI$(TA) 

1430 PUT 81, 1 

1440 GOTO 1170 

1450 CLS 

1460 PRINT "ESA FICHA YA EXISTE" 
1470 PRINT: PRINT "PULSA UNA TECLA" 
1480 H$=INPUT$(1) 
1490 GOTO 1170 
1500 END 
1510 REM 

1520 U$ = SPACE$(25) 

1530 V$ = SPACE$(15> 

1540 W$ = LEFT$(W$ + U$, 25) 

1550 E$ = LEFT$(E$ + V$, 15) 

1560 W$ = LEFT$(W$ + E$, 40) 

1570 RETURN 

1580 REM* 

1590 REM* DISECT KEY 
1600 REM* 

1610 W$ = LEFTS(S$.25) 
1620 E$ = RIGHT$(S$, 15) 
1630 RETURN 
1640 REM 

1650 REM* GET ROOT 
1660 REM 
1670 GET ttl, 1 
1680 LET Q = 1 
1690 TO = CVI(N$) 
1700 TA = CVI(A$> 
1710 RETURN 
1720 REM* 

1730 REM *** FICHA REPETIDA *** 
1740 REM 

1750 LET X$ = "D" 
1760 REM 
1770 RETURN 
1780 REM 

1790 REM *** COGER DERECHA *** 

1800 REM 

1810 R = CVI(R$) 

1820 IF R = O THEN LET X$="R": GOTO 1850 
1830 GET ttl, R 
1840 LET Q = R 
1850 RETURN 
1860 REM 

1870 REM *** COGER IZQUIERDA *** 

1880 REM 

1890 L = CVI(L$) 

1900 IF L = O THEN LET X$ = "L": GOTO 1930 
1910 GET ttl, L 
1920 LET Q = L 
1930 RETURN 
1940 REM 

1950 REM *** COGER *** 
1960 REM 
1970 B = CVI(B$) 
1980 GET ttl, B 
1990 LET Q = B 
2000 RETURN 
2010 REM 

2020 REM *** CAMBIAR *** 
2030 REM 
2040 TN = TN + 1 

2050 IF X$ = "L" THEN LSET L$ = MKI$(TN) 
2080 IF X$ = "R" THEN LSET R$ = MKI$(TN) 



I 



2080 RETURN 
2090 REM 

2100 REM *** GRABAR *** 
2110 REM 

2120 LSET S$ = W$ 
2130 LSET A$ = Y$ 
2140 LSET C$ = ü$ 
2150 LSET Z$ = 1$ 
2160 LSET P$ = D$ 
2170 LSET N$ = 0$ 
2180 LSET L$ = MKI$(0) 
2190 LSET R$ = MKI$(0) 
2200 LSET B$ = MKI$(Q) 
2210 PUT #1, TN 
2220 RETURN 
2230 REM 

2240 REM *** BUSCAR FICHAS *** 
2250 REM 

2260 LET X$ = "N" 

2270 GOSUB 1640 

2280 WHILE X$ = "N" 

2290 IF W$ > S$ THEN GOSUB 1780 

2300 IF W$ < S$ THEN GOSUB 1860 

2310 IF W$ = S$ THEN GOSUB 1720 

2320 HEND 

2330 RETURN 

2340 REM 

2350 REM ************************************ 
2360 REM * LOCALIZAR UNA PERSONA * 

2370 REM ************************************ 
2380 REM 
2390 CLS 

2400 LOCATE 3,14: PRINT "BUSCAR PERSONA" 



2410 


LOCATE 5,1: 


PRINT 


"(NOMBRE" 




2420 


INPUT W$ 








2430 


LOCATE 6,1: 


PRINT 


" (APELLIDOS" 


2440 


INPUT E$ 








2450 


GOSUB 1510 








2460 


GOSUB 2230 








2470 


CLS 








2480 


IF X$ O "D 


' THEN 


LOCATE 7,12: 


2490 


GOSUB 1580 








2500 


LOCATE 2,2: 


PRINT 


"NOMBRE " 


W$ 


2510 


LOCATE 3,2: 


PRINT 


"APELL. " 


E$ 


2520 


LOCATE 4,2: 


PRINT 


"DIREC. " 


A$ 


2530 


LOCATE 5,2: 


PRINT 


"CIUDAD " 


C$ 


2540 


LOCATE 6,2: 


PRINT 


"CODIGO " 


Z$ 


2550 


LOCATE 7,2: 


PRINT 


"PAIS 


P$ 


2560 


LOCATE 8,2: 


PRINT 


"TELE 


N$ 



PRINT "FICHA NO ENCONTRADA" : GOTO 2670 



2570 IF M o 2 THEN GOTO 2730 

2580 LOCATE 14,2: PRINT " (QUIERES CAMBIAR ESTA FICHA (S/N)"; 
2590 INPUT M$ 

2600 IF M$ = "S" THEN GOSUB 3980: GOTO 2490 

2610 IF M$ O "N" GOTO 2580 

2620 LOCATE 14,2: PRINT SPACE$(38) 

2630 LOCATE 14,2: PRINT " (QUIERES SACARLO POR IMPRESORA (S/N)"; 
2640 INPUT M$ 

2650 IF M$ - "S" THEN GOSUB 4140: GOTO 2680 
2660 IF M$ O "N" GOTO 2620 
2670 IF M o 2 THEN GOTO 2730 
2680 LOCATE 14,2: PRINT SPACE$(38) 

2690 LOCATE 14,2: PRINT " (QUIERES BUSCAR MAS (S/N)"; 
2700 INPUT M$ 

2710 IF M$ = "S" GOTO 2390 
2720 IF M$ O "N" GOTO 2690 
2730 RETURN 
2740 REM 



2750 REM ************************************ 

2760 REM * IMPRIMIR ARBOL ... * 

2770 REM ************************************ 

2780 REM 

2790 GOSÜB 4260 

2800 LET P = 1 

2810 CLS 

2820 LOCATE 1,14: PRINT "LISTA DE NOMBRES" 

2830 GOSUB 1640 

2840 LET 1=1 

2850 LET X$ = "N" 

2880 WHILE X$ = "N" 

2870 GOSÜB 1870 

2880 WEND 

2890 L = CVI(L$) 

2900 R = CVI(R$) 

2910 B = CVI(B$) 

2920 IF (Q O 1) AND (M O 3) THEN GOSUB 4500 

2930 IF (M = 3) AND (Q O 1) THEN GOSUB 3250 

2940 IF I = TA THEN GOTO 3040 

2950 1=1+1 

2960 LET X$ = "N" 

2970 GOSUB 1790 

2980 IF X$ = "N" GOTO 2860 

2990 LET Z = Q 

3000 GOSUB 1940 

3010 R = CVI(R$) 

3020 IF R = Z THEN GOTO 2990 

3030 GOTO 2920 

3040 PRINT: PRINT: PRINT "PULSA ENTER PARA CONTINUAR' 
3050 RETURN 
3060 REM 

3070 REM ************************************ 
3080 REM * BUSCAR . * 

3090 REM ************************************ 
3100 REM 
3110 CLS 

3120 LOCATE 2,12: PRINT "BUSQUEDA POR UNA LETRA" 
3130 LOCATE 4,1: PRINT "PRIMERA LETRA DEL NOMBRE " ; 
3140 INPUT H$ 
3150 CLS 

3160 LOCATE 2,16: PRINT "NOMBRES CON ";H$ 
3170 PRINT 
3180 GOSUB 2830 
3190 PRINT : PRINT 

3200 PRINT " (QUIERES VER MAS (S/N):"; 
3210 INPUT M$ 

3220 IF M$ = "S" THEN GOTO 3100 
3230 IF M$ O "N" THEN GOTO 3200 
3240 RETURN 
3250 REM 

3260 REM *** CHEQUEA LA PRIMERA LETRA *** . 
3270 REM 

3280 J$ = LEFT$(S$, 1) 

3290 IF J$ = H$ THEN GOSUB 1580: PRINT W$;E$ 
3300 IF J$ > H$ THEN I = TA 
3310 RETURN 
3320 REM 

3330 REM ************************************* 
3340 REM * BORRAR REGISTRO *. 

3350 REM ************************************* 
3360 REM 
3370 CLS 

3380 LOCATE 3,11: PRINT "BORRAR UNA PERSONA" 
3390 GOSUB 2410 

3400 IF X$ = "D" THEN GOTO 3460 

3410 LOCATE 12,1: PRINT "(QUIERES BORRAR MAS (S/N)"; 
3420 INPUT M$ 



3430 IF M$ = "S" GOTO 3370 
3440 IF M$ O "N" GOTO 3410 
3450 RETURN 

3460 LOCATE 14,2: PRINT " (ESTAS SEGURO (S/N)"; 
3470 INPUT M$ 

3480 IF M$ = "N" THEN CLS: GOTO 3410 
3490 IF M$ O "S" THEN GOTO 3480 
3500 R = CVI(R$) 
3510 L = CVI(L$) 
3520 B = CVI(B$) 
3530 LET D = 0 

3540 IF (L o 0) 0R (R O 0) THEN GOTO 3610 
3550 GET «1, B 
3560 F = CVI(L$) 

3570 IF F = Q THEN LSET L$ = MKI$(0) ELSE LSET R$ = MKI$(0) 
3580 PÜT «1, B 
3590 GOTO 3910 
3600 REM 

3610 IF R = 0 THEN GOTO 3710 
3620 LET D = 1 
3630 GET «1, B 
3640 F = CVI(L$) 

3650 IF F = Q THEN LSET L$ = MKI$(R) ELSE LSET R$ = MKI$(R) 

3660 PÜT «1, B 

3670 GET «1, R 

3680 LSET B$ = MKI$(B) 

3690 PÜT «1, R 

3700 REM 

3710 IF L = 0 THEN GOTO 3910 
3720 IF D = 1 THEN GOTO 3820 
3730 GET «1, B 
3740 F = CVI(L$) 

3750 IF F = Q THEN LSET L$ = MKI$(L> ELSE LSET R$ = MKI$(L) 

3760 PUT #1, B 

3770 GET «1, L 

3780 LSET B$ = MKI$(B) 

3790 PUT *1, L 

3800 GOTO 3910 

3810 REM 

3820 GET «1, L 

3830 LET W$ = S$ 

3840 LET LS = L 

3850 GOSUB 2230 

3860 IF X$ = "L" THEN LSET L$ = MKI$(LS) ELSE LSET R$ = MKI$(LS) 

3870 PUT #1, Q 

3880 GET #1, LS 

3890 LSET B$ = MKI$(Q) 

3900 PUT #1, LS 

3910 CLS 

3920 LOCATE 4,12: PRINT "FICHA BORRADA ! " 

3930 GOSUB 1640 

3940 TA = TA - 1 

3950 LSET A$ = MKI$(TA) 

3960 PUT #1, 1 

3970 GOTO 3410 

3980 REM 

3990 REM ************************************ 
4000 REM * CAMBIAR EL REGISTRO * 

4010 REM ************************************ 
4020 REM 

4030 LOCATE 14.2: PRINT SPACE$(38) 

4040 LOCATE 14,2: PRINT " (QUE QUIERES CAMBIAR (D, C, Z, P, T) " ; 
4050 INPUT M$ 

4060 IF M$ = "D" THEN LOCATE 4,9: LINE INPUT Y$: LSET A$ = Y$ 
4070 IF M$ = "C" THEN LOCATE 5,9: LINE INPUT U$: LSET C$ = U$ 
4080 IF M$ = "Z" THEN LOCATE 6,9: LINE INPUT 1$: LSET Z$ = 1$ 
4090 IF M$ = "P" THEN LOCATE 7,9: LINE INPUT D$: LSET P$ = D$ 
4100 IF M$ = "T" THEN LOCATE 8,9: LINE INPUT 0$: LSET N$ = 0$ 
■ 



4110 PÜT SI, Q 
4120 CLS 
4130 RETURN 
4140 REM 

4150 REM ******************************* 

4160 REM * IMPRIMIR * 

4170 REM ******************************* 

4180 REM 

4190 GOSÜB 4890 

4200 LPRINT W$;E$ 

4210 LPRINT A$ 

4220 LPRINT C$; " ";Z$ 

4230 LPRINT P$ 

4240 LPRINT N$ 

4250 RETURN 

4260 REM 

4270 REM ************************************ 
4280 REM * PANTALLA O IMPRESORA ???? * 
4290 REM ************************************ 
4300 REM 
4310 CLS 

4320 LOCATE 2,1: PRINT "(QUE QUIERES, PANTALLA OR IMPRESORA (P/I) 
4330 INPUT G$ 

4340 IF (G$ O "P") AND (G$ O "I") THEN GOTO 4310 
4350 LOCATE 5,16: PRINT "OPCIONES" 

4360 LOCATE 6,15: PRINT " " 

4370 LOCATE 7,10: PRINT "1 - NOMBRE" 

4380 LOCATE 8,10: PRINT "2 - NOMBRE Y TELE" 

4390 LOCATE 9,10: PRINT "3 - NOMBRE, DIREC. Y TELE" 

4400 LOCATE 12,1: PRINT " (QUE OPCION QUIERES";- 

4410 INPUT U 

4420 IF (U < 1) OR (U > 3) THEN GOTO 4400 
4430 LOCATE 14,1: PRINT " (ESTAS SEGURO (S/N)"; 
4440 INPUT M$ 

4450 IF M$ = "N" THEN GOTO 4310 
4460 IF M$ O "S" THEN GOTO 4430 
4470 LET N = 0 

4480 IF G$ = "I" THEN GOSUB 4890 
4490 RETURN 
4500 REM 

4510 REM ******************************* 
4520 REM * IMPRIMIR * 

4530 REM ******************************* 
4540 REM 
4550 GOSUB 1580 

4560 IF G$ = "I" THEN GOTO 4710 
4570 PRINT W$;E$ 

4580 IF U = 3 THEN PRINT A$: PRINT C$,Z$: PRINT P$ 
4590 IF U > 1 THEN PRINT N$ 
4600 PRINT 
4610 N = N + 1 

4620 IF (U = 1) AND (N/P = 10) THEN GOTO 4660 
4630 IF (U = 2) AND (N/P = 7) THEN GOTO 4660 
4640 IF (U = 3) AND (N/P = 3) THEN GOTO 4660 
4650 GOTO 4880 
4660 P = P + 1 

4670 PRINT: PRINT "PULSA ENTER "; 

4680 J$ = INPUT$(1) 

4690 CLS 

4700 GOTO 4880 

4710 REM 

4720 REM ******************************* 
4730 REM * SALIDA POR IMPRESORA * 
4740 REM ******************************* 
4750 REM 

4760 LPRINT W$;E$ 

4770 IF U = 3 THEN LPRINT A$: LPRINT C$,Z$: LPRINT P$ 
4780 IF U > 1 THEN LPRINT N$ 



4790 
4800 
4810 
4820 
4830 
4840 
4850 
4860 
4870 
4880 
4890 
4900 
4910 
4920 
4930 
4940 
4950 
4960 
4970 
4980 
4990 
5000 
5010 
5020 
5030 
5040 



THEN GOTO 4850 
THEN GOTO 4850 
THEN GOTO 4850 




LPRINT 
N = N + 1 

IF (ü = 1) AND (N/P = 30) 
IF (U = 2) AND (N/P = 20) 
IF (U = 3) AND (N/P = 10) 
GOTO 4880 
P = P + 1 
LPRINT CHR$(12) 
CLS 
RETURN 
REM 

REM ******************************* 
REM * PREPARAR IMPRESORA * 

REM ******************************* 
REM 

LPRINT CHR$(27)+CHR$(64) 
CLS 

LOCATE 2,1: PRINT " (QUIERES IMPRESION GRANDE O PEQUEN I A (G/P)"; 
INPUT M$ 

IF M$ = "P" THEN LPRINT CHR$(27)+CHR$( 15) 

IF M$ = "G" THEN LPRINT CHR$(18> 

IF (M$ O "P") AND (M$ O "G") THEN GOTO 4950 

CLS 

LOCATE 2,1: PRINT "COLOCA EL PAPEL Y PULSA ENTER" ; 

J$ = INPUT$(1) 

RETURN 



650 LOCATE 12,8:PRINT "AGENDA TELEFO- 
NICA" 

660 LOCATE 1 1 ,9:PRINT " " 

670 LOCATE 7,12:PRINT "(c) Ed. Siglo Cul- 
tural, 1987" 

960 LOCATE 18,3:PRINT "MENU" 

970 LOCATE 17,4:PRINT " " 

980 LOCATE 12,6:PRINT "1 - NUEVA PERSO- 
NA" 

990 LOCATE 12,7:PRINT "2 - BUSCAR/CAM- 
BIAR PERSONA" 

1000 LOCATE 12,8:PRINT "3 - BUSCAR" 
1010 LOCATE 12,9:PRINT "4-BORRAR PER- 
SONA" 

1020 LOCATE 12, 10:PRINT "5 - LISTAR TO- 
DAS" 

1030 LOCATE 12,1 1:PRINT "6 - TERMINAR" 
1040 LOCATE 1 , 14:PRINT "(QUE ELIGES? 
(1-6) "; 

2400 LOCATE 14,3:PRINT "BUSCAR PERSO- 
NA" 

2410 LOCATE 1,5:PRINT "(NOMBRE"; 
2430 LOCATE 1,6:PRINT "(APELLIDOS "; 



2510 LOCATE 2,3:PRINT "APELL. ";E$ 
2520 LOCATE 2,4:PRINT "DIREC. ";A$ 
2530 LOCATE 2,5:PRINT "CIUDAD ";C$ 
2540 LOCATE 2,6:PRINT "CODIGO ";Z$ 
2550 LOCATE 2,7:PRINT "PAIS ";P$ 
2560 LOCATE 2,8:PRINT "TELE ";N$ 

2580 LOCATE 2,14:PRINT "(QUIERES CAM- 
BIAR ESTA FECHA? (S/N)"; 
2620 LOCATE 2,14:PRINT SPACE$(38) 
2630 LOCATE 2,14:PRINT "(QUIERES SACAR- 
LO POR IMPRESORA? (S/N) "; 
2680 LOCATE 2,14:PRINT SPACE$(38) 
2690 LOCATE 2,14:PRINT "(QUIERES BUS- 
CAR MAS? (S/N) "; 

2820 LOCATE 14,1 :PRINT "LISTA DE NOM- 
BRES" 

3120 LOCATE 12,2:PRINT "BUSQUEDA POR 
UNA LETRA" 

3130 LOCATE 1 ,4:PRINT "PRIMERA LETRA 
DEL NOMBRE"; 

3160 LOCATE 16,2:PRINT "NOMBRES CON 

";H$ 



3380 LOCATE 11,3:PRINT "BORRAR UNA 
PERSONA" 

3410 LOCATE 1,12:PRINT "(QUIERES 
BORRAR MAS? (S/N) »; 
3460 LOCATE 2,14:PRINT "(ESTAS SEGURO? 
(S/N) "; 

3920 LOCATE 12,4:PRINT "FICHA BORRA- 
DAI" 

4030 LOCATE 2, 14:PRINT SPACE$(39) 
4040 LOCATE 2,14:PRINT "(QUE QUIERES 
CAMBIAR (D.C.Z.P.T) "; 
4060 IF M$="D"THEN LOCATE 9.41INE INPUT 
Y$:LSET A$=Y$ 

4070 IF M$="C"THEN LOCATE 9,5:LINE IN- 
PUT U$:LSET C$=U$ 

4080 IF M$="Z"THEN LOCATE 9.61INE INPUT 
l$;LSET Z$=l$ 

4090 IF M$="P"THEN LOCATE 9.71INE INPUT 
D$:LSET P$=D$ 

4100 IF M$="T"THEN LOCATE 9.81INE INPUT 
0$:LSET N$=0$ 



4320 LOCATE 1.2:PRINT "(QUE QUIERES, 
PANTALLA O IMPRESORA (P/l) "; 
4350 LOCATE 16,5:PRINT "OPCIONES" 

4360 LOCATE 15,5:PRINT " " 

4370 LOCATE 10,7:PRINT "1 - NOMBRE" 
4380 LOCATE 10,8:PRINT"2 - NOMBRE Y 
TELE." 

4390 LOCATE 10,9:PRINT "(QUE OPCION 
QUIERES? "; 

4400 LOCATE 1,12:PRINT "(QUE OPCION 
QUIERES? »; 

4430 LOCATE 1,14:PRINT "(ESTAS SEGURO? 

(S/N) "; 

4960 LOCATE 1,2:PRINT "(QUIERES IMPRE- 
SION GRANDE O PEQUEÑA (G/P) "¡ 
5020 LOCATE 1,2:PRINT "COLOCA EL PAPEL 
Y PULSA ENTER"; 

Este programa aparecerá dentro de 
pocos tomos en versiones para el COM- 
MODORE, AMSTRAD y SPECTRUM. 




TECNICAS DE ANALISIS 

SEGURIDADES EN LOS PROCESOS 



DEMAS del control so- 
bre los datos (para 
obviar la Introduc- 
ción de errores y ase- 
gurar la congruencia 
de los resultados), en 
el análisis de una 
aplicación informáti- 
ca o un programa conviene Introducir al- 
gunos mecanismos de seguridad en el 
conjunto de los ficheros de datos a pro- 
cesar. 

En efecto, en todos los dispositivos físi- 
cos de soporte magnético de datos se 
pueden producir errores y accidentes 
aue provocarán la destrucción de los da- 
tos o, al menos, dificultades en su lectura. 

La situación es ligeramente diferente 
en el caso de manejo de cintas magné- 
ticas y de discos fijos. Los disquetes mag- 
néticos participan de ciertas caracterís- 
ticas de ambos medios. 

En el caso de las cintas magnéticas es 
usual prever varios procedimientos de 
seguridad. 

a) Control de validez de los datos leí- 
dos: hay que establecer un procedimien- 
to de relntentos de lectura y de Informa- 
ción al usuario en caso de producirse 
errores. Se pueden fijar otros controles 
(de longitud de datos obtenidos, de se- 
cuencia de registros, etc.) para asegurar 
la correcta lectura de los datos. 

b) Establecimiento de una copla de 
seguridad para un fichero, cuando la re- 
petición del proceso de obtención de 
ese archivo es larga o complicada, 



cuando los datos deben ser utilizados en 
varios procesos, etc. Hay que evaluar en 
este caso el coste de inmovilización de 
las copias frente a la posibilidad de re- 
petición de los procesos, los problemas 
de tiempo que pueden surgir, etc. 

c) A veces, incluso, se establece un 
sistema de varias coplas (normalmente 
tres: «abuelo-padre-hljo») cuando es Im- 
portante el fichero a conservar o cuando 
el proceso se repite con mucha frecuen- 
cia. 

d) Reducir los tiempos de realización 
en los procesos muy largos, previendo su 
fraccionamiento y estableciendo puntos 
de control y relanzamlento. Para ello hay 
que definir unos momentos en los que el 
proceso se detenga y en los que se ob- 
tenga una imagen de la situación (posi- 
ción de los ficheros que se están proce- 
sando, estado de las variables, Imagen 
de la memoria principal, etc.). De este 
modo, si en el Intervalo hasta el siguiente 
punto de control se produce una anoma- 
lía, es posible relanzar el proceso desde 
el punto de control anterior en vez de 
arrancar la aplicación desde su comien- 
zo. En estos puntos de relanzamlento se 
suelen establecer controles para detec- 
tar posibles anomalías no detectables 
por simple observación exterior del de- 
sarrollo del proceso y que no producen 
un mensaje de error del sistema. 

e) Además de la definición de los sis- 
temas de seguridad indicados, el analis- 
ta deberá proveer normas detalladas de 
actuación de todas las personas involu- 




* TECNICAS DE ANALISIS 



eradas en los trabajos, de forma que se 
actúe de un modo preciso para la detec- 
ción y eliminación o corrección de los 
errores que se puedan producir. 

En el caso de los discos magnéticos se 
pueden producir, además, algunos otros 
errores o accidentes debidos a la propia 
estructura del dispositivo: detección del 
disco en el momento de escritura con 
destrucción física del soporte, borrado 
de etiquetas o índices de los ficheros 
etcétera, Incluso problemas de polvo, al 
que son bastante sensibles. 

Para evitar estas dificultades (o minimi- 
zarlas en la medida de lo posible) se re- 
comienda: 

a) Limitar la importancia de las 
correcciones a realizar si se produce una 
destrucción de Información, mediante la 
división del fichero en bloques lógicos 
que representen porciones limitadas de 
los ficheros completos. 

b) Prever un código Incluido en el fi- 
chero; código que deberá ser analizado 
antes de la cumplimentación de cual- 
quier orden de escritura. 

c) Limitar los accesos de modifica- 
ción de los ficheros básicos, mediante 
agrupación de las actualizaciones del 
archivo, en la medida de lo posible. 

d) Distribuir los ficheros en varios dis- 
positivos físicos o instalar en un dispositi- 
vo los índices de acceso y otros elemen- 
tos de control y en otro diferente los da- 
tos. Por este procedimiento, además, se 
puede mejorar el tiempo de acceso a los 
archivos básicos, dependiendo del siste- 
ma físico (hardware) sobre el que se esté 
trabajando. 



e) Control del momento en que se ha 
producido la anomalía (error, detención 
del dispositivo, etc.) respecto del mo- 
mento en que se ha escrito o se deberá 
escribir, para deducir de ello las fases a 
cumplimentar en el proceso de recons- 
trucción del fichero y en el procedimien- 
to de relanzamlento. 

f) Creación de ficheros de seguridad 
parciales que se elaboren automática- 
mente en ciertos momentos del proceso 
o cuando se ha producido un número de 
accesos predefinido. 

g) Establecimiento de ficheros de al- 
macenamiento de actualizaciones para 
simplificar el relanzamlento. 

h) Control de volumen de los ficheros 
para coadyuvar a los mecanismos de se- 
guridad del sistema y prever áreas de ex- 
pansión y reordenación de los archivos. 

I) Prever y definir cuidadosamente los 
procesos de depuración y reorganiza- 
ción de los ficheros para minimizar estas 
tareas y eliminar posibles fuentes de pro- 
blemas. 

Ademas de estos mecanismos concre- 
tos de seguridad indicados, en la mayo- 
ría de las aplicaciones será posible, e In- 
cluso conveniente, establecer otras se- 
guridades y controles que vendrán Indi- 
cadas por las características de las ta- 
reas a desarrollar. 

Conviene hacer un examen de los pro- 
cesos desde este punto de vista y detec- 
tar las tareas especialmente críticas, ex- 
tremando en ellas el número y sofistica- 
ron de las seguridades a definir e Inclu- 
so, en algunos casos, estableciendo que 
los programas emitan mensajes de ad- 
vertencia a los operadores. 
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F. OR el momento he- 
I mos hablado bastan- 
0 te de estructuras de 
datos. En efecto, los 
J escalares, las series o 
vectores y las tablas 
o matrices constitu- 
yen en conjunto la es- 
tructura de más del 99 por 100 de los da- 
tos que uno suele encontrarse en los pro- 
gramas de ordenador. Es verdad que 
existen otras estructuras: tablas rectan- 
gulares de tres o más dimensiones, listas, 
arboles y gratos que pueden tener gran 
utilidad en aplicaciones concretas, es- 
pecialmente en lenguajes especializa- 
dos (como USP) o próximos al lenguaje 
de la máquina (como C). Describiremos 
más adelante estas otras estructuras. 

Además de una estructura determina- 
da, los datos que proporcionamos a un 
programa pueden pertenecer también a 
varios tipos diferentes. El tipo de un dato 
nos indica qué clase de Información re- 
presenta ese dato y qué operaciones po- 
demos realizar con él. Por ejemplo, un 
dato de un programa podría ser la pala- 
bra «VERTEBRA». Otro dato del mismo pro- 
grama podría ser el número 25. En el pri- 
mer caso tenemos Información alfabéti- 
ca con ia que podemos realizar opera- 
ciones como las siguientes (entre otras 
muchas posibles): 

— Ponerla por orden alfabético, lo 
que nos daría el resultado «ABEERRTV». 

— Compararla con otra palabra, lo 
que nos daría el resultado «son Iguales» 
o «son desiguales». 



— Extraer los tres primeros caracteres, 
lo que nos daría el resultado «VER». 

— Extraer dos caracteres a partir del 
cuarto, lo que nos daría el resultado «TE». 

— Invertir el orden de sus letras, lo que 
nos dará el resultado «ARBETREV». 

— Imprimirla por la pantalla. 

En el caso del número 25 tenemos in- 
formación numérica, con la que pode- 
mos realizar operaciones como las si- 
guientes (también entre otras muchas): 

— Sumarle el número 3, lo que nos da- 
ría el resultado 28. 

— Multiplicarla por 2, lo que nos daría 
el resultado 50. 

— Pasarla al sistema de numeración 
binarlo, lo que nos daría el resultado 
«11001». 

— Compararla con otro número, lo 
que nos daría el resultado «son Iguales», 
«son desiguales», «el primero es mayor» o 
«el segundo es mayor». 

— Imprimirla por la pantalla. 

Como se ve, algunas de las operacio- 
nes que podemos raiizar con la Informa- 
ción alfabética (como ordenar por orden 
alfabético o extraer cierto número de ca- 
racteres a partir de uno dado) no son 
aplicables a la Información numérica. 
Por el contrario, algunas de las operacio- 
nes que podemos realizar con datos nu- 
méricos (como la suma, la multiplicación 
o el cambio de sistema de numeración) 
no son aplicables a los datos alfabéticos. 
Por último, existen operaciones (como 
imprimir en la pantalla o comparar) que 
pueden realizarse indistintamente con 
ambos tipos de datos. 



■ TECNICAS DE PROGRAMACION 



En las próximas páginas veremos con 
más detalle ambos tipos principales de 
datos, Junto con sus posibles subdivisio- 
nes y las operaciones en que pueden to- 
mar parte. Después mencionaremos al- 
gunos tipos de datos más, que se estu- 
diarán con más detalle en otra parte de 
esta obra. 



Datos numéricos 

No cabe duda de que la información 
numérica desempeña un papel Importan- 
tísimo en los programas de ordenador. 
Sin embargo, el mero hecho de poder 
operar con ella presenta cierto número 
de problemas, relativamente complejos, 
que vamos a describir sin entrar demasia- 
do en detalle. 

La información de cualquier tipo está 
contenida en la memoria de las compu- 
tadoras en forma binaria, mediante cir- 
cuitos eléctricos que pueden estar abier- 
tos o cerrados, o que pueden tener ten- 
siones altas o bajas, en forma de magne- 
tizaciones norte o sur. Es decir, mediante 
sistemas capaces de tomar solamente 
dos estados. Por conveniencia, a uno de 
los estados se le llama «cero» y al otro 
«uno». Un dato cualquiera viene repre- 
sentado siempre, en definitiva, por una 
sucesión de estos elementos binarios. Di- 
cho de otro modo, por una sucesión de 
ceros y unos. 

Es evidente, por consiguiente, que exis- 
te una forma natural de representar la In- 
formación numérica dentro de la memo- 
ria de un ordenador: el sistema binarlo 
de numeración. Como se sabe, los núme- 
ros se representan en este sistema utili- 
zando únicamente dos cifras diferentes: 
el cero y el uno. Como comparación, 
pensemos que en el sistema decimal de 
numeración, al que estamos acostum- 
brados, los números se representan utili- 
zando diez cifras diferentes. 

¿Cómo construimos los números en el 
sistema decimal? SI los enumeramos to- 
dos sucesivamente, veremos que se 
construyen tomando primero una sola ci- 
fra y haciendo variar esta del cero al nue- 
ve. Cuando se nos han acabado las ci- 
fras, ponemos un uno en la segunda cifra 
(la de las decenas) y volvemos a repetir 
el proceso de variar la primera cifra del 
cero al nueve. A continuación, sumamos 



una unidad a la segunda cifra y volvemos 
otra vez a variar la primera, y así sucesi- 
vamente. Cada vez que llegamos al final 
del recorrido de una cifra determinada, 
añadimos una unidad a la cifra siguiente 
hacia la izquierda y volvemos al cero en 
la cifra anterior (situada a su derecha). 

Exactamente lo mismo se hace en el 
caso del sistema binario de numeración 
pero aquí no disponemos de diez cifras 
distintas (0, 1. 2, 3, 4, 5, 6, 7, 8, 9), sino tan 
sólo de dos (0 y 1), por lo que las cifras 
de los números van extendiéndose hacia 
la Izquierda mucho más de prisa. Veamos 
en la siguiente tabla cómo van generán- 
dose sucesivamente los números bina- 
rlos, aplicando el método anterior. Como 
comparación, hemos colocado el equi- 
valente decimal en la columna de la Iz- 
quierda de la tabla: 



N.° 




N.° 


N.° 


decimal 


binarlo 


decimal 


binarlo 


0 


0 


10 


1010 


1 


1 


11 


1011 


2 


10 


12 


1100 


3 


11 


13 


1101 


4 


100 


14 


1110 


5 


101 


15 


1111 


ó 


110 


16 


10000 


7 


111 


17 


10001 








10010 


9 


1 00 1 


19 





De la misma forma anterior podrían ge- 
nerarse los números sucesivos de cual- 
quier otra base: la temarla (basada en 
las cifras 0, 1, 2), la octal (basada en las 
cifras 0, 1, 2, 3, 4, 5, 6, 7), la hexadecimal 
(en un sistema de dieciséis cifras, que 
usualmente se representan con los sím- 
bolos 0, 1,2, 3, 4, 5, 6, 7, 8, 9, A, B, C, D, 
E, F), etc. 

Pues bien: como hemos dicho, la forma 
«natural» de representar los números en 
un ordenador es en el sistema binario de 
numeración. Sin embargo, la forma «na- 
tural» de verlos en la pantalla o introdu- 
cirlos en el teclado es el sistema deci- 
mal, que al ordenador le resulta extraño. 
Es preciso, por tanto, convertirlos de un 
sistema a otro. 

Normalmente no tenemos que preocu- 
parnos de realizar este tipo de conversio- 
nes, pues existen programas de ordena- 
dor que nos las hacen automáticamente. 
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Los traductores de los lenguajes de pro- 
gramación (compiladores o intérpretes) 
realizan esta función, entre otras muchas. 
Por esta razón podemos olvidarnos casi 
siempre del sistema binarlo de numera- 
ción y trabajar como si la máaulna «en- 
tendiera» nuestros números decimales, 
aun cuando las operaciones se realiza- 
rán siempre dentro de ella en el sistema 
binario. 

Dentro de los ordenadores hay un ele- 
mento, que se llama el microprocesador, 
que, entre otras cosas, está encargado 
de realizar las operaciones aritméticas 
con los datos numéricos. Para ello, dispo- 
ne de una serle de «instrucciones de la 
máquina» elementales, capaces de rea- 
lizar operaciones aritméticas sencillas 
(sumas, restas, multiplicaciones, divisio- 
nes) entre parejas de números represen- 
tados en el sistema binarlo mediante ten- 
siones eléctricas altas o bajas. Ocurre, 
sin embargo, que estos números tienen 
que tener una longitud determinada, 
pues no podemos construir microprocesa- 
dores que operen con números de cual- 
quier longitud, ya que serían demasiado 
complejos. Por consiguiente, al diseñar 
el microprocesador se decide siempre 
cuántas cifras han de tener los números 
binarlos con los que sea capaz de ope- 
rar. En un microprocesador determinado 
se pueden elegir una o más de estas lon- 
gitudes, pero siempre en un número fijo 
y determinado. En general, se operará 
con números binarlos que tengan un hú- 
mero de cifras múltiplo de ocho: las lon- 
gitudes más frecuentes son ocho, dieci- 
séis, treinta y dos y sesenta y cuatro. 

¿Qué ocurre si queremos operar con un 
número binarlo de cinco cifras en un mi- 
croprocesador que sólo puede operar 
con números de ocho cifras? No hay pro- 
blema. En todos los sistemas de numera- 
ción, los ceros a la izquierda no tienen 
valor alguno. Así, en el sistema decimal 
al que estamos acostumbrados, sabe- 
mos que 12345 representa el mismo nú- 
mero que 000 1 2345. Lo mismo sucede en 
el sistema binario. Así, si queremos ope- 
rar con el número binario equivalente al 
decimal 17(1 000 1 ) y debemos extender- 
lo a ocho cifras, bastará con añadirle tres 
ceros a la izquierda, convirtiéndolo en 
00010001. 

El problema se presenta si queremos 



operar con números binarlos de nueve ci- 
fras en un microprocesador que sólo pue- 
de operar con números de ocho cifras. 
Por ejemplo: sea el número decimal 511, 
cuya representación binarla es 
111111111. Es evidente que no podre- 
mos trabajar con él directamente, pues 
nos sobra una cifra. Siempre es posible 
construir un programa que parta el núme- 
ro en varios trozos (dos, en este caso) y 
realice las operaciones en varios pasos, 
pero esto es preciso programarlo. En 
cambio, si el microprocesador tuviera 
también la posibilidad de operar direc- 
tamente con números binarlos de dieci- 
séis cifras (además de con los de 8) bas- 
taría con añadir al número anterior siete 
ceros a la izquierda para resolver total- 
mente el problema. 

¿A dónde vamos a parar con todo 
esto? Al hecho de que, cualquiera que 
sea nuestro ordenador, habrá siempre un 
límite a los números enteros con los que 
pueda operar directamente, que depen- 
derá del número de cifras binarias elegi- 
do en el momento de diseñarlo. Todo 
esto se complica por el hecho de que 
generalmente se Introducen convenios 
para representar también con cifras bi- 
narlas los números negativos (como el 
sistema del complemento a dos), pero 
no vamos a entrar en ello. Bastará con 
ver, en la tabla siguiente, los límites 
correspondientes a las distintas longitu- 
des utilizadas normalmente, tanto en el 
caso de números estrictamente positivos 
como de números positivos y negativos 
indistintamente. Los límites vienen dados 
en la tabla en el sistema decimal de nu- 
meración. 



N.o 
cifras 
binarlas 


N.o' 
positivos 


N." 
positivo* 
y nogatlvoi 


8 


0 a 255 


-128 a 127 


16 


0 a 65535 


-32768 a 32767 


32 


0 a 4294967295 


-2147483648 a 2147483647 



Por supuesto, hasta ahora hemos ha- 
blado únicamente de números enteros. 
Pero es también muy frecuente que de- 
seemos realizar operaciones con núme- 
ros decimales, como los siguientes: 

2,5 

0.0000000001 
123,45 
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o con números enteros que se salgan de 
los límites con los que puede operar 
nuestro ordenador. También es posible 
que, aunque los números con los que 
operamos sean enteros y caigan dentro 
de los límites válidos, el resultado de la 
operación no lo sea. Veamos un ejem- 
plo: 

Sea un ordenador cuyo microprocesa- 
dor puede realizar operaciones con nú- 
meros binarlos de dieciséis cifras. Supon- 
gamos que acepta números negativos. 
De acuerdo con la tabla anterior, esto 
significa que podremos operar con los 
números comprendidos entre -32768 y 
32767. Pues bien, supongamos que de- 
seamos sumar los números binarlos 
correspondientes a 25000 y 15000. Cada 
uno de ellos está dentro de los límites 
permitidos, pero la suma (40000) se en- 
cuentra fuera del Intervalo válido. Es de- 
cir: no podremos representar el número 
40000 con la precisión admitida por 
nuestro ordenador. Con mayor razón 
ocurriría algo semejante si tratáramos de 
multiplicar 1000 por 2000, pues el resul- 
tado es dos millones. 

Para resolver estas situaciones, existen 
dos posibilidades. O bien buscamos un 
microprocesador capaz de trabajar di- 
rectamente con números expresados en 
un sistema de representación Interna lla- 
mado «coma flotante», o bien hacemos 
un programa que lo realice. Los dos ca- 
sos se dan en los ordenadores más cono- 
cidos. En el IBM PC, por ejemplo, además 
del microprocesador normal de la má- 
quina (8086, 8088 u 80286), que es ca- 
paz de realizar operaciones con enteros 
de ocho y dieciséis cifras binarlas, se 
puede añadir un segundo microprocesa- 
dor (co-procesador matemático 8087 u 
80287), que opera con enteros de trein- 
ta y dos o sesenta y cuatro cifras binarias 
y con varias representaciones en coma 
flotante. En otras máquinas (como el 
Spectrum, por ejemplo) y el mismo IBM 
PC, si no se dispone del co-procesador 
matemático, existen programas que per- 
miten trabajar con números decimales 
expresados en algún sistema de coma 
flotante. Casi todos los intérpretes y com- 
piladores de los principales lenguajes de 
programación los tienen, por lo que no 



tenemos, en principio, que preocupar- 
nos de ellos. Pero en algunos de estos 
lenguajes es Importante saber en cuál de 
los sistemas de representación se en- 
cuentra cada una de nuestras variables, 
pues hay operaciones que sólo pueden 
realizarse en determinados casos. Volve- 
remos sobre esto más adelante. 

El sistema de coma flotante, que se uti- 
liza también en numerosas calculadoras 
de bolsillo, consiste en descomponer los 
números en dos partes: la primera (que 
se llama la «mantisa») es el conjunto de 
las cifras del número sin tener en cuenta 
la posición de la coma decimal (por eso 
se llama «coma flotanté»), que colocare- 
mos siempre a la derecha de la primera 
cifra del número que sea distinta de 
cero, leyéndolas de izquierda a dere- 
cha. La segunda parte (el exponente) es 
la potencia de diez por la que habría 
que multiplicar la mantisa para obtener 
el número deseado. Por ejemplo, los tres 
números decimales dados anteriormente 
se expresarían en coma flotante así: 



Número 


Mantisa 


Exponente 


2,5 

0,0000000001 
123,45 


2,5 
1,0 

1,2345 


0 

-10 
2 



En efecto: 2,5 es igual a 2,5 multiplica- 
do por 10 elevado a cero. 0,0000000001 
es igual a 1,0 multiplicado por 10 eleva- 
do a -10. Finalmente, 123,45 es Igual a 
1,2345 multiplicado por 10 elevado a 2, 
es decir, por 100. Recuérdese que 10 ele- 
vado a un número positivo «n» es igual a 
un uno seguido por n ceros, y que 10 ele- 
vado a un número negativo, «-n», es 
igual a cero, coma, n-1 ceros y un uno. 
Así, 10 elevado a 3 es 1000 y 10 elevado 
a -3 es 0,001. 

De igual manera que lo hemos defini- 
do para el sistema decimal de numera- 
ción, podemos definir un sistema de 
coma flotante para el sistema binarlo, y 
es precisamente en esta forma como se 
emplea en numerosas computadoras y 
en los traductores de los lenguajes de 
programación. 




APLICACIONES 

TRATAMIENTO DE TEXTOS 



H 



El programa 
Wordstar 



ORDSTAR es uno de 

Wlos procesadores de 
textos más extendi- 
dos del mercado. La 
razón de esta tama 
está basada en dos 
puntos principales: 

— Es un programa 
que está Implementado en una gran va- 
riedad de ordenadores, lo cual facilita su 
difusión, hasta haberse convertido casi 
en un estándar. Específicamente existe 
para todos aquellos ordenadores que 
tengan sistema operativo CP/M o 
MS/DOS. 

— Es muy versátil, disponiendo de una 
gran cantidad de comandos y órdenes 
con las que modificar y editar un texto lo 
que resuelve casi todos los problemas y 
formatos que se pueden presentar a la 
hora de crear un texto. 

Una de las principales ventajas del 
WORDSTAR es el "formateo en pantalla", 
o lo que es lo mismo, el texto que esta- 
mos editando en la pantalla tiene el mis- 
mo aspecto que el que saldrá al impri- 
mirse en papel por la impresora, y cual- 
quier cambio que hagamos en el texto se 
verá reflejado de Inmediato en la panta- 
lla viendo el efecto real que produce 
en él. 



Otra característica importante, aunque 
común a la mayoría de los procesadores 
de texto, es el "WORD WRAP", que permi- 
te^ escribir un texto sin preocuparse de 
dónde termina cada línea, ocupándose 
el procesador de pasar la palabra que 
se está escribiendo a la línea siguiente si 
ésta no cabe en la línea, reajustándola 
para que ocupe toda la longitud entre 
los márgenes. 

El Wordstar también permite escribir 
textos muy largos, ya que el almacena- 
miento del texto mientras se está editan- 
do se realiza en el disco, estando el ta- 
maño del documento sólo limitado por la 
capacidad disponible en el disco. 

Además de los comandos comunes a 
los procesadores de texto, dispone de 
una gran cantidad de funciones como: 
funciones de manejo de bloques, bús- 
queda y sustitución, paginación automá- 
tica del texto, varios tipos de justifica- 
ción, fabuladores decimales, varios tipos 
de letra en Impresora, etc. 



SI 



Estructura del Wordstar 



Las funciones del WORDSTAR están divi- 
didas en menús que agrupan funciones 
similares, cuya estructura general pode- 
mos ver en la figura 1 . 




programa* o 
comandos 
globales 
de archivo 



I MENU SIN I 

I AB ™ v ° r 



Cierre del 
archivo en 
edición 




MENU DE 




MENU DE 




MENU DE 




MENU 




MENU DE 


AYUDA 




FORMATO 




IMPRESION 




RAPIDO 




BLOQUES 



• Menú sin archivo 

Nada más empezar con el programa 
entramos en el "MENU SIN ARCHIVO", en 



el cual podemos realizar una serle de ac- 
ciones globales sobre los archivos de los 
documentos. 



Comandos Preliminares 
L Cambiar unidad disco estándar 
F Dlr. de disco arch. no (SI) 
H Fijar nivel ayuda 

Comandos Abrir Archivo 
livo documento 



MENU SIN ARCHIVO 
Comandos Archivo 

P IMPRIMIR arch. 

E RENOMBRAR arch. 
O COPIAR arch. 




Comandos Sistema 
R Ejec. programa 
X SALIR al sistema 

Opciones WordStar 
E|ec. MallMerge 
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a) Comandos preliminares 

Estos comandos nos permiten estable- 
cer el nivel de ayuda y en qué lectora de 
discos vamos a abrir un fichero. 

b) Comandos de apertura de archivo 

Con estas órdenes especificamos al 
WORDSTAR cuál va a ser el archivo con el 
que vamos a trabajar, abriendo un docu- 
mento ya existente para corregirlo o 
creando uno nuevo. 

c) Comandos de manejo global de ar- 
chivos 

Estos comandos permiten imprimir, re- 
nombrar, copiar o borrar un archivo cual- 
quiera del disco. 

d) Comandos varios 

Con estas aplicaciones podemos rea- 
lizar una serie de tareas no relacionadas 



directamente con los documentos, como 
ejecutar un programa externo o acabar 
la sesión de manejo del WORDSTAR, esto 
es, salir de la aplicación. 



* Menú principal de edición 

Una vez abierto un archivo en el menú 
anterior, pasamos a este menú, con el 
cual vamos a escribir el texto permitien- 
do una serle de comandos para mover- 
nos dentro y realizar borrados e Insercio- 
nes. 

También a partir de este menú tendre- 
mos acceso a los otros menús que nos 
permitirán realizar todas las funciones 
avanzadas del WORDSTAR. 

En el menú principal podemos distin- 
guir las siguientes partes. 



A:PEPET PAG. 1 UN. 1 COL 01 



INSERTAR SI 



Movimiento del cursor 
"S car. Izda. "D car. dcha. 
"A pal. Izda. "F pal. dcha. 
~E lín. arr. "X lín. abajo 
Deslizar: 
"Z línea abajo "W línea arr. 



MENU PRINCIPAL 



Borrar 
"G car. 
DEL car iz 
*T pal dch 
"Y línea 



Varios 
"i Tab. "B Recomp. 
*V INSERTAR SI/NO 
*L Bus./sust. otra 
RETORNO fin párrafo 
"N Insertar RETORNO 
-U Cancelar comande 
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Otros menús 
(sólo desde pral.) 
"J Ayuda 
"Q Rápido 
"O Pantalla 
"K Bloques 
~P Impresión 



a) Comandos de desplazamiento del 
cursor 

Con estos comandos podemos llevar el 
cursor a cualauier parte del texto para vi- 
sualizarlo o realizar modificaciones. 

Permiten borrar caracteres, palabras o 
líneas del texto. 

b) Comandos varios 

Aquí se incluyen la mayoría de los co- 
mandos generales para modificar y 
corregir un texto, cómo reformar un 
párrafo, insertar caracteres en una posi- 
ción, fabuladores, etc. 



c) Acceso a otros menús 

Estos comandos permiten acceder a 
los restantes menús dentro del modo de 
edición. 

Los menús a los cuales podemos acu- 
dir son: 

1 . Menú de ayuda 

Con este menú podemos tener en pan- 
talla una ayuda rápida de cualquier co- 
mando del WORDSTAR, gracias a la cual 
no tendremos necesidad de recurrir al 
manual para consultar alguna duda. 



MENU DE AYUDA 



Mostrar/fijar nivel ayuda 
Recomp. párrafo (CONTROL-B) 
Ind. en colum. más a derecha 
Comandos punto, contr. Impr. 
Indice de comandos 



S 
R 
M 
P 
V 



Línea estado 
Regleta 

Márgenes y tabs. 
Poner marcas 
Mover te 



Otros menús 
(desde menú pral.) 
"J Ayuda *K Bloq. 
"Q Rápido *P Impr. 
O Pantalla 

le lleve 
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2. Menú de manejo de bloques 

El menú de bloques permite realizar 
una serle de comandos relacionados 
con bloques de texto, como mover, co- 



piar, borrar o almacenar el bloque. Tam- 
bién permite el manejo de documentos 
completos con funciones de Impresión, 
almacenamiento en disco, etc. 



Salvar archivo 
S Salv y contln. 
D Salv— listo 
X Salv y salir 
Q Abandonar arch 

Poner marcas 
0-9 Ver o no 0-9 


ME NU C 

Operac. bloques 
B Prlnc. K final 
H Mostrar sí/no 
C Copiar y borrar 
V Mover W grabar 
N Columna sí (NO) 


E BLOQUES 

Operac. Archivos 

R Leer P Imprlm. 

O Copiar E renomb. 

J Borrar 

Operac. de disco 

L Cambiar disco act. 

F Directoro sí (NO) 


Otros menús 
(desde menú pral.) 
*J Ayuda "K Bloq. 
*Q Rápido ~P impr. 
"O Pantalla 
ESPACIO le lleva 
al menú principal 
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3. Menú rápido 

Este menú permite realizar rápidamen- 
te alguna de las funciones que aparecen 



en el menú principal, como movimiento 
con saltos más grandes, supresión o 
borrado, búsqueda y sustitución de pala- 
bras, repetición de órdenes, etc. 



Movimiento de cursor 
S lado. Izdo. D lado dcho. 



E prin. pant 

R prin. arch 

B prin. bloq. 

Z abajo 



X fondo pant. 
C final arch. 
K final bloque 
W arr. 0-9 marcas ref. 



MENU RAPIDO 



Borrar 
Y lín. der 
DEL lín iz 



Varios 
F Buscar texto 
A Buscar y sustit. 
L Buscar falta ort. 
O. Repetir comando o 
tecla hasta que 
lacio 
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4. Menú de Impresión 

Este menú contiene los comandos rela- 
cionados con el control de la impresora, 



Otros menús 
(desde menú pral.) 
"J Ayuda "K Bloq. 
"Q Rápido *P Impr. 
"O Pantalla 
ESPACIO le lleva 
al menú principal. 



como pausa de la Impresión, salto entre 
líneas, y también con los eíectos espe- 
ciales de Impresión, como negrilla, sub- 
rayado, etc. 



MENU DE IMPRESION' 



Efectos especiales 



(princ. y final) 
B Negr. D Doble 

S Subrayado 
X Tachado 
V Subíndice 



(una vez de cada) 
H Sobrelmpr. carác. 
O Esp. irrompible 
F Espacio fantasma 
G Borrado fantasma 
RETSobrelmp. línea 



Cambios Impresión 
A Paso alternativo 
N Paso estándar 
C Pausa en impresión 
Y Cinta otro color 

Parches usuario 
Q(1)W(2) E(3) R(4) 
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Otros menús 
(desde Menú pral.) 
"J Ayuda "K Bloq. 
"Q Rápido "P Impr. 
"O Pantalla 

ESPACIO le lleva al menú 



5. Menú de formato en pantalla 



Los comandos agrupados en este 
menú permiten el control del aspecto de 



un documento variando su formato. Per- 
mite elegir el tipo de justificación, la po- 
sición de los fabuladores y márgenes, 
control de fin de página, etc. 



Margen y tabs. 
L Poner marg. Izdo. 
R Poner marg. dcho. 
X Liberar márgenes 
I Flj. N Borr. tab. 
G Tab. párrafo 
F Regleta des, lín. 



MENU 

Funciones línea 
C Centras texto 
S Poner esp. línea 

Cambiadores 
W Trans. pal. no (SI) 
T Regí, lín. no (SI) 



PANTALLA 

Más cambiadores 
J Justific. no (SI) 
V Vari-tabs no (SI) 
H Ay. guión no (SI) 
E Guión aut. sí (NO) 
D Ver impr. no (SI) 
P Sep. pág. no (SI) 



Otros menús 
*J Ayuda "K Bloq. 
"Q Rápido "P Impr. 
'O Pantalla 

ESPACIO le lleva al menú 
principal. 





Flg. 8. 



Aparte de todos los comandos accesi- 
bles por medio de los menús para el con- 
trol del formato del texto, existe una se- 
rie de órdenes aue van Incluidas dentro 
del texto y que nos permiten controlar al- 
gunas características de la impresión 
como el formato general de la página, 
que Incluye márgenes superior e inferior, 



e izquierdo y derecho. Estos comandos, 
aunque vayan incluidos en el texto, no se 
Imprimen y sólo sirven para controlar la 
impresión. 

Para que el WORDSTAR reconozca estos 
comandos, todos ellas van precedidos 
por un punto (.). Y tienen que estar en 
una línea cada uno, sin más texto detrás. 
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LA ESTRUCTURA IF-THEN (continuación) 




AMOS a comentar un 
detalle un poco deli- 
cado de las estructu- 
ras IF-THEN-ELSE; si no 
se ve muy claro aho- 
ra, no hay que alar- 
marse, pues es del 
tipo de posas que se 
van entendiendo con la práctica. 



En el último programa de ejemplo vi- 
mos cómo se podían poner estructuras IF 
dentro de estructuras IF. En estas situacio- 
nes, si el compilador llegase a la palabra 
reservada ELSE, supondría que corres- 
ponde a la última estructura IF que no la 
tuviera todavía. Por ejemplo: 



if Alto thon <* Si alto, mirar si es bumo *) 

if Bueno thon 

writoln ('Es alto y bueno* > 
el se 

writeln ('Es alto pero no bueno') 

else (* Si no es alto, mirar si es listo *) 

if Listo then 

writeln ('No es alto, pero es listo') 
el i 

writeln ('No es alto ni listo') 




Al llegar al primer ELSE de todos, el 
compilador sobreentiende que corres- 
ponde al último IF sin ELSE, es decir, a «if 
Bueno...»; al llegar al segundo ELSE, el úl- 
timo IF sin ELSE que queda es «if Alto...» y, 
por tanto, le corresponde. 



SI quisiésemos tener una estructura IF 
simple dentro de otra con ELSE, podría- 
mos hacer lo siguiente: 



if Alto then 
begin 

if Bueno then writeln ('Es alto y bueno') 
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Utilizando una secuencia de una sola 
instrucción (lo que en principio podría 
parecer absurdo), las palabras BEGIN y 
END han hecho de «paréntesis» para así 
forzar a que ELSE corresponda a la prime- 
ra estructura IF. 



estructura REPEAT 



Hay ocasiones en que se necesita re- 
petir la ejecución de una cierta instruc- 
ción hasta que se cumpla una condición 
dada. Para ello se dispone de la estruc- 
tura REPEAT. Empecemos con un ejemplo: 




program Repite; 
var Cuenta: intagerj 

begin 
Cuontai= Oj 

wrltaln <*Cuonta«= '.Cuenta); 

repeat 

Cuenta: = Cuanta + 1 
until Cuanta > 5; 

writoln (• Cuenta- Cuenta) | 
and. 




SI ejecutamos este programa, en la 
pantalla del ordenador aparecerá: 




La estructura REPEAT se compone de las 
palabras reservadas REPEAT y UNTIL, la Ins- 
trucción a repetir escrita entre ellas, y, en 
último lugar, la condición por la que se 
debe terminar con las repeticiones y pa- 
sar a lo siguiente. 

Durante la ejecución del programa, al 
llegarse a la estructura REPEAT se ejecuta 
la instrucción que alberga, tras lo cual se 
pasa a evaluar la condición que hay tras 
la palabra reservada UNTIL. Si el resulta- 
do es TRUE, se pasa a lo que hubiera a 
continuación, pero si fuera FALSE, se vol- 
vería a ejecutar la Instrucción anterior y 
a evaluar la condición, etc., hasta que 
en algún momento, por fin, el resultado 
fuese TRUE. 

Por tanto, la primera vez que se ejecu- 
ta la Instrucción. Cuenta: = Cuenta + 1 , la 
variable Cuenta, que valía 0, pasa a va- 
ler 1 . Tras eso, el resultado de la expre- 
sión Cuenta > 5 es, por supuesto, FALSE, 
por lo que se volverá a ejecutar Cuenta: = 
= Cuenta + 1 (Cuenta valdrá entonces 2), 
a evaluar Cuenta > 5, etc. 

Por fin, llegará un momento en que 
Cuenta valdrá 5; tras ejecutarse Cuenta: = 
= Cuenta + 1 , pasará a valer 6 y enton- 
ces al evaluarse la Cuenta > 5 el resul- 
tado será TRUE, por lo que se pasará a la 
Instrucción WRITELN que hay a continua- 
ción. Traduciendo del Inglés resulta todo 
muy claro: 



REPEAT Cuenta:=Cuento*1 UNTIL 

Repetir Cuenta:=Cuenta+1 hasta que 



Cuenta > 5 
Cuenta mayor que 6 



La instrucción a repetir PUEDE SER DE 
CUALQUIER TIPO, simple o estructurada. 

Cuando la Instrucción es una secuen- 
cia, como aquí hay dos palabras reser- 
vadas, REPEAT y UNTIL, por delante y de- 



trás de ella, no hace falta poner BEGIN y 
END para delimitarla. Por tanto, la o las in- 
fracciones a repetir se escriben una de- 
trás de otra separadas por punto y coma 
entre las palabras REPEAT y UNTIL. Probe- 
mos un programa parecido al anterior: 



- 



program Repi teEscri be; 
var Cuentas int'eger; 

bagln 
Cuenta;» 0| 

repaat 

writaln ('Cuanta» '.Cuenta); 
Cuanta: = Cuanta + 1 
until Cuenta > 5 




En la pantalla, aparecerá: 




A las situaciones en que un conjunto de 
instrucciones se repite una y otra vez se 
les llama «bucles de programa». 

La condición de salida del bucle (o 
sea, la que decide si hay que seguir re- 
pitiendo o no) puede ser cualquier ex- 
presión que dé un resultado de tipo 
BOOLEAN. 



El conjunto formado por la palabra RE- 
PEAT, la o las Instrucciones, la palabra UN- 
TIL y la expresión lógica es a su vez una 
instrucción estructurada (cuya ejecucción 
consiste en repetir las que contiene has- 
ta que se cumpla la condición) y, por 
tanto, se le aplica todo lo dicho hasta el 
momento sobre éstas. 



Con REPEAT podemos controlar los erro- 
res al teclear datos mejor que como lo hi- 
cimos en el programa Secuencia: 



program Pidelnicial ; 
var 

Inicial i char; 
EsLetrai boolean; 

bagln 

repeat (* Repetir pregunta hasta respuesta buena *> 
wrlteln ('Inicial? •); readln (Inicial); 
EsLetrai» (Inicial >» 'A') and (Inicial <- 'Z')| 
if not EsLetra then 

writeln ('Imposible, repita.') 

until EsLetra; 




Gracias a la estructura REPEAT, se pedi- 
rá la inicial una y otra vez, hasta que sea 
correcta. 

Se ha utilizado la variable EsLetra por- 
que, como la corrección de la letra hay 
que analizarla para avisar en su caso (es- 



tructura IF), si guardamos el resultado de 
la comparación en ella se evita tener 
que repetirla tras UNTIL. . 

Hay que tener en cuenta dos importan- 
tes aspectos de la estructura REPEAT: 
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1. SI el bloque de instrucciones a re- 
petir no afectara para nada a la condi- 
ción de salida, podríamos tener un «bu- 
cle infinito»: 



repeat 

wnteln (Cuenta); 
Cuenta: »Cuenta+l 
until 2-3 




La condición de salida (2=3) nunca se 
cumple y por más que se repitan una y 
otra vez las dos instrucciones del bucle, 
nunca se cumplirá, con lo que la ejecu- 
ción del programa no avanzará nunca: 
tenemos un bucle infinito. (Por cierto, si 
en algún momento se deseara tener un 
bucle infinito deliberadamente, lo mejor 
es escribir REPEAT ... UNTIL FALSE.) 

2. La condición de salida (la expre- 
sión BOOLEAN) se evalúa DESPUES de la 
ejecución de la o las instrucciones del 
bucle. Por ello, aunque el valor fuera TRUE 
ya desde un principio, siempre se ejecu- 
tarán las instrucciones al menos una vez: 



Cuanta: = 10; 
repeat 

writeln (Cuenta); 

Cuanta; =Cuenta+ 1 
until Cuenta > 3 




Con estas Instrucciones aparecería 10 
en la pantalla, aunque la condición para 
no seguir repitiendo el bucle es que 
Cuenta sea mayor que cinco. 



Para los casos en que se deba compro- 
bar la condición de salida ANTES de eje- 
cutar las Instrucciones del bucle una sola 
vez, se dispone de la estructura WHILE, 
que veremos a continuación. 




La estructura WHILE 



Esta estructura es similar a la Instruc- 
ción REPEAT, con dos diferencias: 

1. La expresión que controla si se 
debe seguir con las repeticiones o no, se 
evalúa ANTES de ejecutar las instruccio- 
nes del bucle. 

2. Se sale del bucle cuando la condi- 
ción deja de cumplirse, es decir, cuando 
el resultado de la expresión de control es 
FALSE. 

Veamos otro ejemplo para ilustrar esto: 



program EjemploWhile; 
var Cuenta: integer; 



begin 
Cuenta: 



0; 



5 do 



while Cuanta <■ 
begin 

writeln ('Cuenta» ', Cuenta); 
Cuanta;» Cuenta + 1 
and 




Este programa actúa igual que Repl- 
teEscrlbe. Una vez más, la traducción del 
Inglés resulta clarificadora. 



WHILE Cuenta <= 5 DO 

Mientras Cuenta menor o Igual que 5 hacer 



(la Instrucción) 



Es decir, entre las palabras reservadas control (una expresión cuyo resultado 
WHILE y DO se escribe la condición de sea de tipo BOOLEAN) y tras todo ello, la 



Instrucción a repetir, que puede ser cual- 
quiera, estructurada o no (en el ejemplo 
es una secuencia). 

Durante la ejecución del programa, al 
llegarse a una estructura WHILE se evalúa 
la condición, y si el resultado fuera TRUE, 
se pasaría a ejecutar la Instrucción a re- 
petir. Tras ello, se volvería a evaluar la 
condición y a ejecutar la Instrucción 
caso de que el resultado hubiese sido 
nuevamente TRUE, etc., hasta que llega- 
se un momento en que el resultado fuera 
FALSE, en cuyo caso se continuaría la 
ejecución del programa con la Instruc- 
ción que hubiese a continuación de la 
estructura. 

Por ello, si en el ejemplo se cambiara 
la Instrucción Cuenta: = 0 por Cuenta: = 
10, nunca se llegaría a ejecutar el bucle, 
pues ya la primera vez el resultado de la 
condición sería FALSE. 

Nuevamente la estructura en su conjun- 
to es toda ella una instrucción estructu- 
rada. 

NOTA: Si se desea profundizar en estas 



cuesltones se puede observar que la Ins- 
trucción WHILE equivale a una combina- 
ción de IF y REPEAT: 




(«mientras se dé la condición haz la ins- 
trucción») equivale a: 



IF condición THEN 
REPEAT 

instrucción 
UNTIL NOT condición 




(o sea, «si se da la condición, repite la 
instrucción hasta que no se dé»). 

Para terminar, veamos un programa 
que calcula y presenta todas las poten- 
cias de dos menores que un número 
dado: 



program Potenci asDeDos; 
var 

N, Topa I integer; 
Error, 

CabeComoEntero! boolean) 

(* CabeComoEntero sirva para indicar al al pasar a la 
siguiente potencia nos saldremos de los límites INTEGER *> 



begin 
Ni- 2| 



(t 2 as la primera potencia *> 



(* Pedir limite hasta que sea correcto! ») 
repeat 

write ("Limitei •>; readln (Tope); 

Error i" (Tope < O) j (* Error si limita negativo *> 
i-f Error then writeln ('No vale. Repita.') 
until not Error | 

CabeComoEntero!* true; 

while (N <- Tope) and CabeComoEntero do 
begin 
writeln (Ni6)| 

CabeComoEntero! = (N <■= Maxlnt div 2) j 
(* Si es TRUE, el siguiente valor es <- que Maxlnt *> 

if CabeComoEntero then Ni- N * 2 
(* Cada potencia es igual al dobla de la anterior. *) 

endf 

writeln ('Se acabó.*) 
end. 
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El programa lo que tiene que hacer es 
sacar la primera potencia (2) y calcular 
la siguiente (4); tras esto, debe sacar la 
última calculada (4) y calcular la siguien- 
te (8). Todo este proceso debe REPETIRSE 
hasta alcanzar el tope o no poder seguir 
debido a las limitaciones inherentes al 
tipo INTEGER utilizado. Si Tope tuera 1 , no 
se debería sacar ni la primera potencia, 
de ahí el empleo de WHILE en vez de RE- 

PEAT. 



Se ha utilizado la variable CabeCo- 
moEntero para evitar calcular un valor 
que se salga de los límites admitidos 
para los números enteros. 

Como ejercicio, podríamos modificar 
el programa para obtener las potencias 
de tres (o mejor, utilizar una constante 
declarada en lugar de 2 para hacerse el 
mínimo de cambios cada vez). Asimismo, 
podríamos utilizar una estructura REPEAT y 
ver la diferencia cuando Tope valga 1 . 




OTROS LENGUAJES 

SISTEMAS OPERATIVOS: CP/M 



\\M¡ Introducción 

P/M es un sistema 
operativo monousua- 
rlo y monotarea 
orientado ¡nicialmen- 
te a equipos basados 
en los microprocesa- 
dores Intel 8080 y 
8085, así como Zilog 

son las iniciales de Control Pro- 
gram for Mlcroprocessors (programa de 
control para microprocesadores). Fue es- 
crito por Gary Kildall en 1 973, cuando tra- 
bajaba para la compañía Intel, al verse 
en la necesidad de trabajar con discos 
flexibles y no tener ningún programa que 
controlase algunas interacciones entre 
el microprocesador y los disquetes. La 
compañía Intel rechazó el proyecto de 
Kildall de continuar desarrollando este 
incipiente sistema operativo, por lo que 
fundó su propia empresa (la que hoy es 
Digital Research Corporation). 

En 1976 Zilog lanza al mercado el mi- 
croprocesador Z-80, y Kildall crea para 
éste la versión 1.4 de CP/M, que es la pri- 
mera versión Industrial del programa. 
Esta versión podía trabajar en sistemas 
que tuvieran sólo 16 Kbytes de memoria 
central, ocupando muy poca de esa me- 
moria. 

El éxito obtenido por el microprocesa- 
dor Z-80 hizo que CP/M se hiciera muy 
popular. Al mismo tiempo, la biblioteca 
de programas creados para este sistema 
operativo iba en aumento, lo que tam- 
bién influyó para que los constructores 
de equipos adoptasen CP/M como siste- 
ma operativo para sus máquinas, ya que 
ello significaba disponer para las mismas 
de gran cantidad de software nada más 
sacarlas al mercado. 

En la actualidad, CP/M es el sistema 
operativo Indiscutible para equipos ba- 
sados en microprocesadores de 8 bits. En 




el ámbito de los 16 bits, sin embargo, se 
ha visto totalmente superado por el 
MS/DOS, en gran parte por la adopción 
de este último por parte de IBM para su 
IBM-PC. 



Estructura de CP/M 



CP/M se divide en 3 módulos principa- 
les: 

— BIOS (Basle Input Output System): Es 
el programa que interactua directamen- 
te con el hardware de la máquina. Ma- 
neja la consola (teclado y pantalla), el 
disco, la impresora y cualquier otro dis- 
positivo periférico conectado al ordena- 
dor. 

— BDOS (Basle Disk Operatlng System): 
Es el módulo encargado del manejo del 
disco en lo relativo a ficheros. Controla el 
directorio de ficheros, permite la ubica- 
ción dinámica de espacio, etc. 

— CCP (Consolé Command Proces- 
sor): Es un intérprete de comandos, y sir- 
ve como Interface o "mediador" entre el 
usuario y el resto del sistema operativo. 
Lee las Instrucciones tecleadas por el 
usuario y dirige a los demás módulos 
para la realización de las acciones perti- 
nentes. 

Una visión por capas de CP/M sería la 
representada por la figura 1 : 

lituana 




Estructura por capas de 



- 



Otra parte fundamental de CP/M, aun- 
que no es un programa, es la TPA (Translt 
Program Area) o área de programas tran- 
sitorios. Es la zona de memoria donde 
CP/M conserva los programas cargados 
desde disco, con sus datos correspon- 
dientes. 

Para ver cómo se instala CP/M en me- 
moria RAM, supongamos una memoria 
de 64 Kbytes (que es lo típico). En las di- 
recciones más bajas se cargan los para- 
metros del sistema (rutina de arranque, 
etcétera). Luego viene la TPA, que es lo 
que más espacio ocupa (mientras mayor 
sea ésta, mayor espacio libre tiene el 
usuario para sus programas). Por último, 
en las direcciones más altas se carga el 
CCP, el BDOS y el BIOS. 



1K-8K 

4K 

2K 



BDOS 
(Localización del 
espacio en disco) 



Byte 6S935 



BIOS 

(Funciones de E/S) 



CCP (Intérprete de 
comando») 



TPA 
(Programas y 
datos del 
usuario) 



64 K 
RAM 




Parar 

'ByteO 

Mapa de memoria típico de CP/M. 

Comandos del CP/M 



Al Igual que MS/DOS, CP/M tiene algu- 
nos comandos Internos que están siem- 
pre en memoria RAM, en la zona ocupa- 
da por el CCP. 

Estos son los siguientes: 

— DIR: Visualiza por pantalla el direc- 
torio de un disco. 

— ERA: Borra un fichero almacenado 
en disco. 

— SAVE: Almacena en disco el conte- 
nido de un fichero que está en memoria. 

— TYPE: Visualiza por pantalla el con- 
tenido de un disco. 

— REN: Cambia el nombre de un fiche- 
ro en disco. 



— USER: Define áreas de usuario en el 
directorio. 

Los comandos externos de CP/M resi- 
den en disco en forma de ficheros con la 
extensión ".COM", y se cargan en la zona 
más baja de la TPA cuando se les Invoca. 
Algunos de estos comandos son los si- 
guientes: 

— PIP: Es un programa de Intercambio 
entre periféricos. Realiza las funciones 
básicas de copla, carga, Impresión y 
combinación de ficheros. 

— STAT: Proporciona diversa Informa- 
ción sobre el espacio ocupado en disco 
y la asignación de los dispositivos. 

— LOAD: Carga ficheros en código 
hexadecimal y produce ficheros ejecuta- 
bles. 

— SUBMIT: Carga en memoria un fiche- 
ro de comandos para procesarlos en 
modo "batch". 

— SYSGEN: Inicializa un dlsquete y gra- 
ba el CP/M en él. 

— ED: Es un editor de líneas, útil en la 
creación y modificación de ficheros. 



Familia CP/M 

i' — 1 

Bajo el nombre de CP/M realmente se 
engloba a toda una familia de sistemas 
operativos y versiones, nacidas todas 
ellas de un tronco común, pero adapta- 
das cada una a distintos entornos y siste- 
mas mlcroinformáticos. 

Básicamente, la familia CP/M se com- 
pone de los siguientes miembros: 

— CP/M 80: Versión monousuario y 
monotarea para sistemas basados en los 
microprocesadores de 8 bits 8080, 8085 
y Z-80. 

— CP/M 86: Análoga a la anterior, 
pero para los microprocesadores de 16 
bits 8088 y 8086. 

— CP/M 68K: Versión adaptada al mi- 
croprocesador MC68000. 

— CP/M 86 concurrente: Versión multl- 
tarea del CP/M 86. 

— MP/M 80 y MP/M 86: Versiones mul- 
tiusuarlo del CP/M 80 y del CP/M 86, res- 
pectivamente. 



